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著者まえがき 

東芝のバーソナル•コンピュータ PASOPIA は，2つの BASIC ( T - BASIC と OA - BASIC ) の採用 
など，ユーザーの立場に立った独自の方針を持つマシンとして，1981年秋の発表以来，岛い評価 
を受けて来ました.さらに骹近では， MINI - PASCAL , CP / M の発売もあり，ますますその機能 
は広がっています. 

しかし，その多彩な機能を引き出すための解説®ということになると，わずかに入門宵的なも 
のがあるだけで，とうてい十分とは言えず， PASOPIA 本来の機能をフルに利用したい，というユ 
ーザーの希望を活かすことができませんでした. 

BASIC の内部 W 造はどうなっているのか，機械語を使うにはどうすればよいのか，ハードウェ 
アの構成はどうなっているのか，といったさまざまな疑問をかかえているューザーも少なくない 
と思います. 

本南は，そのような方々のために， PASOPIA を徹底的に使いこなす手引きとして，マニュアル. 
維誌記事などでは触れられていない情報を整理したものです. 

ソフトウェアに関しては， T - BASIC ( Ver . l . l ) を中心に， OA - BASIC , MINI - PASCAL , CP / 
M のすべてにわたって解説を加えており，ハードウ; L アに関しても，多くの図表•写真をまじえ， 
具体的に詳しく説明してあります. 

紙数の制約もあり，害き足りない点もあるかと思いますが, PASOPIA 初の本格的解説»として， 
必ずや，多くのユーザーの方々に満足していただける内容であると考えております.読者の方々 
が，本害によって， PASOPIA の持つ魅力をよりいっそう引き出していただけるよう願っています. 

なお，本害の原搞執筆に関しては，ハードウェア関係を池田が， BASIC 関係を東が，また ， MINI 
- PASCAL , CP / M を浅野が担当いたしました.付録に関しては I / O ボートを池田が， T - BASIC の 
一覧表を浅野が担当しております. 

本書の出版に関して， ㈱ 束芝•オフィスオートメーション事業部の鈴木氏，山田氏に大変お世 
話になりました，紙面をかりて惑謝の意を表します. 

1983年2月 
著者代表東潤 一 
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の本を読む前に 


本畨は，柬芝パーソナルコンピュータ • PASOPIA (ハ•ソビア）のユーザーの中で， 

1. T - BASIC は一通りマスターしたが，もう一歩つっこんだノウハウを知りたい，という方 
2•ハードウヱアに興味のある方 

3.パソピア上で動くいろいろなシステム（ハ•スカル. CP / M 等）について興味のある方 

を対象として*かれています. 

初心の方には多少難しい内容もありますが，ハ •ソビアを十分活用するために必要なテクニック 
を満載しましたので，マニュアルと合わせてお読み下されば，理解が深まると思います. 

本涔で使用した主なシステムは， T-BASIC Ver . l . l ( ROM 版）， OA-BASIC Ver . Dl . O (デ 
ィスク版）， MIN 卜 PASCAL ( ROMPAC 版）です.その他のシステムについては，必要に応じて触 
れました.内部ボインタ値など，異なるものが多いので注意して下さい. 

本»の«成を上げると，1家のハードウヱアはハ•ソビアのハード全般について，2章から6章 
までは T-BASIC Ver .1.1. 7章は OA - BASIC , 8章は MIlsU - PASCAL ， 9灌は CP / M , につ 
いて述べてあります. 

各章の内容は以下の通りです. 

第1章ハードウ： L ア仕様 

システム構成，本体および周辺装置のハードウヱアについて，詳細に解説しました.周辺装逋 
には，ディスク，ブリンタなどの他にハ•ソビアの特®である， ROM / RAMPAC , 液晶ディスブレ 
イ等も含めました. 


第2章 T - BASIC の内部構造 

T - BASIC(Ver 1.1) について，メモリ内部の状態，数値表現のされ方等を詳しく解説しました， 
また， ROM 内ルーチンの使用例，ポインタの利用法も載せ，巻末の付録の利用の手引きとしまし 
た. 

第3章グラフィック 

160 X 200 フルカラー•グラフィック，高速 GET @, PUT ®, タイリング ， WINDOW - VIEW 
4 



機能の追加など， T-BASIC(Verl.l) のグラフ ィッ ク機能を引き出すノウハウを載せました. 


第4章入出力装置 

T-BASIC を対象に，カセット，ディスク等のフォーマットや，ファイルの人出力について解説 
し，使用の際知っておくと便利なルーチンを載せました.特に，ハ•ソピアの特長である， RAMPAC 
については，別に頂を立て解説してあります. 

第5章キー入力 

T-BASIC(Verl.l) を対象に，ブログラマブル•ファンクションキー，キー割込，リアルタイム. 
キースキャン等キー人力についての解説し，合わせて各入力命令の比較をしました. 

第6章漢字出力 

T-DISKBASIC(Verl.O) に含まれた漢字 ファ イ ル や，漢字 ROMPAC-2 を使って，その内部表 
現や，出力の方法を解説しました. 

第7章 OA - BASIC の内部構造 

柬芝が開発した， OA-BASIC Ver.Dl.O (ディスク版）の特徴を，内部«造まで含めて解説しま 
した.また，他に比べると強化されたファイル機能については，持に項を立て説明しました. 


第8章 MINI-PASCAL 

ROMPAC で供給される，ハ•ソピア .MINI-PASCAL について，概要とその構造，ブログラム 
の人力，実行例を載せました.また，内部ルーチンの一览表を巻末の APPENDIX に含めました. 

第9章 CP/M 

パソピアの CP/M の概要と，特徴について解説し，いくつかのコマンドの使用例を載せました. 
いまや， 8 ビット CPU マシンの代表的 DOS (ディスク•オペレーティング•システム）となった CP/ 
M を，初歩から知りたい方の参考になると思います. 
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第 1 章 

八ードウエア仕様 


-1 システム構成 

-2 パソピア本体の仕様 

-3 オーデイオカセット • インタフェイス 

-4 ディスプレイ装置とそのインタフヱイス 

-5 ミニフロッピィ•ディスクユニット 

-6 プリンタ 

-7 ROM / RAM 力ートリッジ 
-8 拡張ユニット （ PA - 730 0) 

-9 RS -232 C インタフェイス 




第 1 章ハードウヱア仕様 


1-1 システム 構造 

1-1-1 概要 

ハ•ソピアは，煅新の窀子忮術，コンピュータ技術を駆使して作られ，比較的低価格でありなが 
ら， 640 X 200 ドットの高解像度グラフィック，サウンド機能など，数々の特傲を持ったコストパ 

フォーマンスの 商い ハ•ーソ ナル コンビュー タです. 

ハ•ソピアのシステムは，すべて ifi 棵を基調とし，色 L ダークシルハ•一に統一され，オフィスコ 
ンピュータを意識したデザインがうかがえます. 



写真丨 -l 
パソビア本体 

パソピア本体は，いわゆる”くさび形"をしており，本体のケースは，裏側にある1本のネジ 
によって固定されています.そのネジを取り除けば，あとは本体上部と下部が，はめ殺しになっ 
ているだけなので，比較的容易に分解することができます.周辺機器も，比較的シンプルな部品 
構成になっており，生産性の向上が計られています.これは，従来のパーソナルコンピュータよ 
り，製品として完成度が向上したといえるでしょう.システム橘成図を，図 1-1-1 に示します. 

本体の CPU には， 4MHz の Z 80 A が使用され， I / O 用に Z80 ファミリーの PIO (パラレル•インブ 
ット•アウトブット.インタフェイス）と3個の8255を用い DMA を全く行なっていないため，ス 
ルーブットの向上が計られています （ 1 - 2パソピア本体の仕様参照). 
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拡張ミニディスク 

PA 7200 


ミニディスク 
PA 7200 


プリンタ 
PA 7250 
または 

PA 7251 図1一〗一1システム構成図 
メモリは， ROM 32 K バイト， RAM 64 K バイトが標準実装され， 16 K バイトの V - RAM と合わせ 
て 112 K バイトもの容进を持っています. 

また，オプションのカートリッジを装着するだけで， ROM , RAM 合計で 64 K 八イトまでを簡単 
に拡張することができる設計になっており，これらのメモリは，システムに応じて I / O ボート経由 
でバンク切換等により使用されます. （1-2,1-7 参照〉 

1-1-2 拡張性 

システムの拡張性についてはよく考えられており，ディスク，プリンタ等はもちろん， RS -232 
C , 液晶ディスプレイ装®， ROM / RAM カートリッジ等も外部インタフヱィスなしで，本体に接 
統することができます（写真参照). 



写真丨-2 

システム全体 
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特に， ROM カートリッジをつけることによって，メインメモリの下位(0000〜 7 FFFH )32 K バ 









菜 1 籮ハードウエア仕« 


イトが力ートリッジ上の ROM に置き変わるため，本体内にある BASIC 以外の言語（例えばパスカ 
ル等）を，待ち時間なしで使用することができます. 

ROM 力ートリッジを使用しなくても，メモリのバンク切換によ って， 64 K バイト RAM になるの 
で，ディスクシステムなら，あらゆる言語を扱うことができる設計になっています （ OS として CP / 
M が用意されています）. 

基本ソフトウヱアと，それを使用するためのシステムの関係を図 1-1-2 に示します. 


基本 ソフトウェア 

本体の他に必要な最少限の システム 

著作権 元 

T - BAS 1 C 

ver 1.0,1.1 

〇 CRT デイスブレイ（家庭用テレビも含む） 
または液晶デイスブレイ 
〇カセットレコーダ 

マイクロソフト 

T-DISK BASIC 

ver 1.0.1.1 

〇デイスフレイ 
〇ミニディスク.ユニット 

マイクロソフト 

OA-BASIC 

〇ディスプレイ 
〇カセットレコーダ 

* 芝 

OA-DISK BASIC 

〇デイスブレイ 
〇ミニディスク•ユニット 

«芝 

MINI-PASCAL 

C カセットレコーダ 

〇 ROM パック 

〇デイスブレイ 

«芝 

UCSD-FASCAL 

〇デイスブレイ 
〇ディスク•ユニット 

カリフオルニア大学理唞会 

CP/M 

〇デイスブレイ 
〇ミニディスク•ユニット 

デジタルリサーチ 


01-1-2 基本 ソフトウェアとシステム 


1-1-3 システムの起動 

電源が投人された際，周辺機器の有無を自動的にチェックし，それに応じてシステムが起動し 
ます. 

ROM カートリッジが装着されている場合は， ROM カートリッジの方が優先されます.また， 
液晶デイスブレイ装置がついている場合は，テキスト画面が液晶ディスブレイの方に出力されま 
す. 

それでは，それぞれのシステムの起動について説明しましょう. 

• T-ROMBASIC の場合. 

メインメモリの下位 32 K バイト（0000〜 7 FFFH ) が ROM に割りあてられ，上位 32 K バイトが RAM 
になります.この時，下位 32 K バイトの RAM は使用されておりません.メモリの構成図を，図1 
-1-3 に示します. 
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また， OA - BASIC 仕様のパソビアに T - BASIC の ROM 力ートリツジを装着した場合も，全く同 
様に作動します. 



0 1-1-3 T-BASIC 起動時 

• T-DISKBASIC の場合 

苽源投人時，フロッピィディスクユニットが接校されていると，まずシステムディスクの入っ 
ているドライブを探します•ディスクドライブに，ディスヶットが入っていなかったり， T-DISKBASIC 
のシステムディスクがない場合は， ROMBASIC が立ち上がり，ディスクドライブは無視されます. 
ドライブ - 1または2のいずれかに，システムディスクが人っていると，まず， ROM の内容の一 
部が RAM に転送された後，バンク切換が行われ，次いで， DISKBASIC がシステムディスクより 
羿き込まれます. 

T - DISKBASIC では， 64 K バイトのメインメモリがすべて RAM となり， T - BASIC の ROM は全 
く使用されなくなります.このときのメモリ W 成を図 1-1-4 に示します. 



• OA-ROMBASIC の場合 

OA - ROMBASIC が起動されると，まず Bl/HBasic Logic Tes りという，システムの簡易テス 
卜が行われます.そして ROM の000 0 H 番地から 7200 H 番地までが，同じアドレス上にある RAM に 
転送され，ついで，バンク切換が行われ， 64 KRAM モードで OA - BASIC が起動されます.しかし， 
RENUM , CLOAD , CSAVE , LOAD , SAVE , TERM の各コマンドの実行は，バンクが ROM 
に切り換わり， ROM 上で実行されます.これは，これらの各コマンドの処理ルーチンの入ってい 
る720 0 H 番地から 7 FBFH 番地までを， RAM 上でデータエリアとして使用しているためです.図1 
•1-5 にメモリ構成図を示します. 
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ROM 
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TERM 実行時 


FFFFH 



図 1 一 1 一 5 OA-ROMBASIC 起動時 


OA-DISKBASIC の場合 


OA - DISKBASIC か起動すると，まず BLT を実行し， RAM 上に DISKBASIC 本体がディスクよ 
り転送されます.そして，ディスク関係のコマンドは RAM 上で，その他のコマンドは ROM 上と， 
そのつどバンク切換を行って実行します.図 1-1-6 にイモリ構成図を示します. 


0 0H 


0 0H 


64KRAM 


0H 


OA-BASIC 


ROM 


BLT の実行 


/I_ j v V V VH 

OA-BASIC N ~ 1 

ROMBASIC 
ROM のコマンド実 

行時 

6 9 8 3 H 


OA-DISK 

BASIC 




FFFFH 




DISK 関係の 
コマンド実行時 


ブログラム 

及び 

7-クエリフ 



FFFFH 


0 1—1—6 OA-DISKBASIC 起動時 


その他，バスカル， CP / M 等については，それぞれ第8章，第9章を参照して下さい. 

システム起動後，リセットスイッチが押されると，そのときのメモリバンクの番地から再起動 
します.もし， ROM モードならば，電源投人時と同じ動作が行われます. 


-2 パソピア本体の仕様 


本体ブロック図 


本体 ブロ ック図を図1 - 2- 1に示します. 


// 







■ 


■ 


本体ブロック図 











1-2-2 チップ構成 


第 10 ハ-ドウェ7'仕枝 


CPU には Z 80 A (4 MH z ) を使用しており，画面処理から I / O 関係まですべての事を行っています. 
メインメモリは， RAM 64 K バイト， ROM 32 K バイト標準装備で， ROM を 32 K バイト拡張でき，こ 
のうち， RAM 64 K バイト， ROM 64 K バイトを，バンク切換によってメインメモリ上におくことが 
できます. 

他に本体のスロットにメモリを差し込むだけで Z 80 の I / O 空間に自由にメモリを置くことができ 
ます.現在のところ 96 KROM , 16 KRAM が市販されていますが，さらに拡張が可能になっていま 
す.このメモリの人出力は I / O 経由で行なわれます. （1-7 参照） 

V-RAM (ビデオ RAM ) は 9 bitx 16 k という媾成で，メインメモリ上ではなく， I / O ポート経由で 
說み离きが行われています.そのため，両面を表示するのに DMA を用いる必要がなく， CPU の持 
ち時間が少なくなっており， CPU のスルーブットが向上しています.1ワードが9ビットなのは， 
データが8ビットで，キャラクタ，グラフィック判別用のアトリビュートを1ビット待っている 
ためです. 


写真い3 
チッブ構成 

メモリの構成図を，次のページ図 1-2- 1に示します. 

その他に， Z 80 A ファミリーの PIO , CTC や， PPK 8255), そして CRTC ( HD 46505 5) 等によって 
MS 成されており，割込式キーボードコントローラー，4個の独立したタイマ，ダイナミックメモ 
リのリフレッシュ，各 MI /0 の制御を実現しています.（写真 1-4) 


写真卜4 

Z 80 ACTC (カウンタ•タイマ） 




W 

















*ia ハードフェア仕様 


Z 80 A - PIO (パラレルインブット/アウトブット）は，キーボードスキャン用信号の出力，キーボ 
ードデータの人力，およびスピーカの ON / OFF 信号の出力を行っています. （1-2-4 参照） 

PPI (ブログラマブル•ペリフヱラル•インタフェイス）である8255は3個使用され，そのうち2 
個を V - RAM ， CRT まわりの制御に，残りの1個をカセット•インタフェィス，プリンタ， RS - 
232 C ， バンク切換に用いています.図 1-2-2- 1，2にその接続図とポート内容を示します .（1 
-3， 1-6,1-9 参照 > 



0 1 - 2-2 -2 8255-3 まわりの接統囡 
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配列を示します. 


パソピア本体で使用されている，チップのピン 
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図丨 一2 — 2 — 3 各種チップビン配列 

















1-2 - 3 ノ、♦ンク切換 


第 1» ハードウエア仕棵 


メインメモリのバンク切換は， I / O ボートの 3 CH にデータを出力することによって行います•図 
1-2-3 に，この I / O ポートのデータ内容を示します. 


3CH 


7 

6 

5 

4 

3 

2 

1 

0 

X 

X 

X 

X 

X 

RST 

RAM 

ROM 


1を出力するとリセット 
がかかる 



0 ." ROM モード 〇…本体 ROM 

1 ..^ KRAM モード 1 ." ROM パック 

m x は总味を待たない 


図 1-2-3 バンク切換 


このようにデータをセットして， OUT 命令によってバンク切換を行うとき，出カデータのビッ 
卜2が0であれば，新しいバンク上の次のアドレスから実行されますが，ビット2が1の場合， 
ハード的にリセットがかかり，新しいメモリバンク上の0 »地から実行されます. 



旧メモリバンク 




PC は、ビット2 _1のとき0 0 0 0 

ビット2 =多のとき前の PC + 2となる 


図1 一2 — 4 PC の変化 

現在のメモリモードは， I / O ボートの 22 H (ボート）を読むことによって認識できます.図 1-2 
-5 に，このボートのデータ内容を示します. 



7 

6 

5 

4 

3 

2 1 

0 

22 H 





ROM 

RAM 




0 •••本体 ROM 0 ".ROM モード 

1 “.ROM バック 1… 64 KRAM モード 


図1一2 — 5 メモリバンクの読み出し 
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3 種類のメモリバンクの各状態を図1 - 2-6 に示します. 

R 0 MPAC -1 が選択された場合， ROM の実装容量によって RAM の容 w が 32 K 〜 56 K バイトにな 
ります.また，メモリバンクが ROM になっている場合に，データを害き込むと，同ーアドレスの 
RAM 上に害き込まれるようになっています.つまり， RAM への書き込みは，バンクに関係なく 
行うことができます.ただし，そのままでは読み出しはできません. （2-1-9 参照） 


64KRAM モード 


本体 ROM モード 


ROMPAC モード 


FFFF 



0 0 0 0 


0 0 0 0! 









ROM 








RAM 













■ 


POMPAC の 
容量によって 
決まる 


01-2-6 3 種類のメモリバンクモード 


1-2-4 キーボード 

キーボー ドの制御は， Z 80 A フアミリの Z 80 APIO というハ•ラレルインタフェィス用のチップを用 
いる蓼により，効率的に行っています. 

このチップは8ビットの I / O ボート A ， B , 2つ持っており，ボート B のいずれかの端子を LOW 
にすることにより，割込信号を発生させています. 

この機能を生かしてキーボードは割込式となっており，いずれかのキーが押されたとき，割込 
信号が発生し， CPU にキーが押されたことを知らせます.そのため，キーが押されていないとき 
は，キーボードスキャンが行われず，その結果 CPU の負担を滅らしています. 

キーボードスキャンは，ソフトウェアスキャン方式で， PIO のボート A にスキャンラインを出し， 
ポート B でデータを読んでいます.また，ボート A のビット7は，スピーカーの ON , OFF スイッ 
チとなっています.またこのキーボードは， CAPSLOCK やカナキーが，機械式ロックになってお 
らず，その切り換えはすべてソフトウェアで行っています. 

図 1-2-7 に， PIO キーボードの接校図を，図 1-2-8, 9にキーボードマトリクスとキーボー 
ド用ソケットの図を示します. 
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B7 

B 6 

B 5 

B 4 

B 3 

B 2 

B 1 

BO 


出カモード 3 


A 7 

A 6 


トコントロール） | A 5 


刺り込み無 


ール内容 
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PIO のコ 


免生する 
ボート番号 


結果のデー 


コントロール内容 



発振を W 効とします 
ブロック C を有効と 

B 々 


SKLA 


ADO 

AD 1 








1111 

■ ■Iglg^sglglgpHISIP 

^^Bh-n__lHlla-IHllM_IH - ■■醒 


K»7 


K»5 


K P02 


Kx 














« ハードウェア仕様 


ビン番号 

信号名 

I/O 

ビン番号 

信号名 

I/O 

1 

KR 0 

I 

2 

KR 1 

I 

3 

KR 2 


4 

KR 3 

I 

5 

KR 4 

1 

6 

KR 5 

I 

7 

… 

KR 6 

1 

8 

:_ 

1 

KR 7 

I 

9 

KS 0 

0 

■■ 

ksT 

0 

11 

KS 2 

0 

12 

KS 3 

0 

13 

KS 4 

〇 

14 

KS 5 

0 

15 

KS 6 

0 

16 

KS 7 

0 

17 

RS 6 

0 

18 

KS 9 

0 

19 

KSA 

〇 

20 

KSB 

〇 



I :人力 
〇 :出力 

図1 一2—9 キーボード用ソケッ 


1-2-5 割込機能 

•削込機能には，3つの觔作モードを持つマスク可能なものと，マスク不可能な NMI (Non Maskable , 
Interrupt ) がありますが， NMI の方は，本体では使用しておりません.マスク可能な割込はモード 
2を使用し，ベクタテーブル方式の割込を行っています.ベクタテーブルは， FEF 0 H 〜 FF 00 H に 
割りあてられています.図 1-2-10 に割込べクタテーブルの表を示します. 


発生場所 

割り込みベクタ 

テーブルアドレス 

用 逢 

CTC チヤンネル0 

1 ' ■ 

F 0 H 

FEF 0 H 

RS 232 C . オーデイオカセットの 
タイミング制御 

チヤンネル1 

F 2 H 

FEF 2 H 

スピーカーの発信周波数設定 
,(割り込みなし〉 

チヤンネル2 ' 

F 4 H 

FEF 4 H 

キーボードのセルフリビートの 

タイミング制御 

チヤンネル3 

F 6 H 

FEF 6 H 

システム • クロック 

PIO ポート A 

F 8 H 

FEF 8 H 

キーボードスキャン用（割り込みなし） 

ポート B 

FAH 

FEFAH 

キーボード り 

外部割り込み 

FFH 

FEFFH 

拡振インターフェースからの削り込み 


図表1 一2—10割り込みベクタ•テーブル 

オーディオカセット•インタフェイスのタイミングやシステムタイマーなど一定の周期を必要 
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とする処理は Z 80 A - CTC (カウンタ•タイマ 
の独立したタイマカウンタを持っておりそ才 
マ，システムロックに使用されています . E 
12に CTC まわりの接続図を示します. 


タイマ割込で行っています.この CTC は4つ 
ピードタイマ，スピーカートーン，キータイ 
•11 に CTC の各チャンネルの用途を，図卜 2- 


A ホート7 
力 ON / OFF - 


NAND 


スピーカ 




B3SZI ESQ OQ3 



供給する音程を決める阓波数の発振器と 
• キークリックやミュージックの音階に 


ド制御タイマ 

ード割り込み処理中のディバ r 
一卜の計 B 寺のために用いられ^ 
ードの処理はシステムクロッ： 


■Mil 醱 





図表 1-2—11 



ネルの用途 










y , i 章 ハー ドウヱア仕悌 


システムタイマは，約 64 Hz のタイマ割込によって制御されています. 64 Hz の割込周期は CTC の 
CH 3 にクロック （3.9936 MHZ ) を与え，それをプリ又ケーラとカウンタにより分周して得ています. 
これを式にすると， 

3.9936 MH z -r 256 + 244 =63.934426 Hz 


となります.バソピアではこの値を1/64秒としているため，1秒は, 


63.934426 


x 64 = 1.001256 秒 


になります.これでは1秒につき約1ミリ杪進むことになるので，正確な時計タイマを必要とす 
る場合は，次の式によって得られる補正値をかけなければなりません. 


1.001256 


= 0.9989754 


その他の割込として，システムタイマを4分周した 16 Hz のソフトウエア割込があります•これ 
は FECAH , FECBH に処理ルーチンの先頭アドレスを*き込むことによって使用します. 


1-3 オーディオカセット•インタフェイス 

1 - 3 - 1概要 

オーディオカセット•インタフェイスは，1600 bps ( bit - par - second ) と比較的商速で，テープ走 
行速度の変動に強い，変調方式となっております. 

この，オーディオカセット•インタフェイスの制御は，すべてソストウェアによって行われ， 
PPI (ハ•ラレル•インタフェイス）の 8255-3 から人出力を行っています.図 1-3-1 に，オーデイオ 
カセット•インタフェイスの接統図を示します. 

論理0と1の搿き込みは記録波形の周期によって決められ，それぞれ1200 Hz と2400 Hz によって 
表されます.この場合，転送速度が普通なら1200 bps になるのですが，1200 Hz と2400 Hz をそれぞ 
れ1波形のみを出力するので，転送速度は，図 1-3-2 のような計算式により，1600 bps になりま 
す.このときの記録波形を図 1-3-3 に示します. 
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REMORTE 



REC 


PLAY 


図 1 一 3 — 2 ボーレートの計算式 


論理 


1/2400秒 






一 

»理’1 " | 




1/1200秒 


1-3-3 データの記録波形 


夕の入出力 


カセットテープへのデータ書き込みは，タイマ割込によりタイミングをとっており，1 
分のデータの前後に同期合わせのため，スタート/ストップ ビッ トが付加されて記録されま 
1-3-4 に，データの形式と割込の関係を示します. 

一方，データの読み込みは，人力波形の反転（エッヂ）を検出して， エッヂ から次の エッ 
わ時間によって論理 # 1"か "0" を判定しています. 

これは， Z 80 CTC のカウンタ機能を利用して計測しており，エッヂから320バ s の時点が， 


第 1« ハードウェア仕棵 


の分かれ目になっています.実際には，論理1のエッヂ間が 416// S ， 論理0のェッヂ間が 208# s と 
なっていますので，20%の速度変動までデータ読み込み可能ということになります.図 1-3-5 
に，人力波形とビット判断点の図を，図 1-3-6 に，オーディオカセット•インタフェイスのコ 
ネクタピン配置を示します. 

スタート•ビット ストップ•ビット 

I I 

_'，1" ''0" ”1"”1" 、'1" 

記録波形 lJU~ULJ lJU lj IT 

割り込み発生 11 t i it i I t t i t t t 會 i i t t t t t t t i t t mi 


Hh 

480 ^^ 


(この時の出カデータは 94 H ) 


図1 一3 — 4 データの出力形式と割り込み 


4800Hz 


2400Hz 


O 

e 


論理' 〇 


論理 


320/is 


エツヂ 


ビット判断点 


図1一3 — 5 入力波のビット判断 


ビン番号 

用途 

I/O 

1 

- 1 


2 

GND 


3 



4 

RKC0UT 

0 

5 

MONITOR 

I 

6 

リモート + 

0 

7 

リモート -j 

0 

8 

GND 



8 ビン D1N 
7 



図 1—3—6 オーデイオカセツトインターフェースコネクタ図 


31 





1-4 ディスプレイ装置とそのインタフェイス 


1-4-1 CRT デイスプレイ 

ハ。ソピアの表示装置には， CRT (または家庭用テレビ）と液晶ディスプレイがあり，これらは I 
用の CRTC ( HD 46505 5) によって制御されています.冈卜4 - 1に，表示モードと画面サイズお c 
び色分解能の表を示します. 


1 

嗜 

横文字数 

ドット数 (|x|) 

色分解能 1 


表示モードには，テキストモード，グラフィックモード，ファイングラフィックモードの3棟 
3あり， I / O ボートの 08 H にデータを出力することによって切り換えられます.図 1-4-2 に出力 
/ータの形式を示します. 


図1 一4一2出カデータの形式 














1-4-2 液日リディスプレイ 

液晶デイスブレイ装； fi は，ハ•ソビア本体後部に取りつけ，コネクタを本体にさし込むことに 
って作觔し，笟源も本体から供給されます(写真1-5， 6). 

表示_面は 320 X 64 ドットと大型で，それをドライブするための液晶ドライブ用 LSI が，12個 
使用されています.内®は，本体からのビデオ信号を処理する部分と液晶ドライブ用 LSI から成 
ており，基板を3枚舐ねにすることにより商密度に実装されています.（写寘参照> 
m 1-4-3 に液晶デイスブレイのブロック図とコネクタ図を示します. 



写真 I - 5 

液晶ディスフレイ 








f •インタ フェイス は， 9 bitxi 6 K の V - RAM とデイスブレイコントロー 
.を制御するための I / O ボートから成っています. V - RAM のアクセスは 
が， CRTC が， V - RAM をアクセスしているときは， CRT の方が優先さ 
ートから V - RAM をアクセスできるのは，水平同期信号を出力している 
-4-4 参照). 

用 I / O ポートは ， PPI (8255) を2個使用することによって6つ設けられています. 










策 1« ハドウエア付拽 


内わけは，9ビットのグラフィックデータのリードとライトを別々の I / O ボートで転送しているた 
め，14ビットのアドレスデータと合わせて32ビットが必要となり，8ビットの I / O ポートが全部で 
4つ使われます.また，残りの2つの I / O ポートは，表示モードの切り換え，背贵色の設定，ステ 
ータスリード等に使用されています.図 1-4-5 に， I / O ボートまわりの接続図を示します • 


め: 

m 

tin 


BUSY _ _ _ 

0 の部分は、 CRTC が V - RAM を男有しているので、アクセスできない。 
図1 一4 一 4 V - RAM アクセスタイム 


水平表示期間 水平冏期信 




01-4-5 I / O ポートの接続図 
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V - RAM の読み出しと害き込みは完全に独立しており，データの書き込みは I /〇ポートからのみ 
行われます.データの読み出しは， V - RAM からのデータが二又に別れた後それぞれラッチされ， 
1つは I / O ポートに行き， CPU からのデータの読み出し用に使われます.もう1つは，グラフ ィッ 
クデータか，カラーアトリビュート.キャラクタか，キャラクタコードかによって別れ，キャラク 
タコードはキャラクタジェネレータ （2716) によってキャラクタパターンに変換され，出力されま 
す.図 1-4-6 に V - RAM 周辺の構成図を示します. 


I/O . 

ポート 



0 1-4-6 V - RAM 周辺の構成図 

1-5 ミニフロッピィ•ディスクユニット 
1-5-1 概要 

ミニフロッピィ•ディスクユニットは，ハ•ソ ピア本体の外部 バスに 接続され，肢大4ドライブ 
まで拡張することができます.ドライブは両面倍密度形で，約 285 KB の記憶容 W を持っており， 
専用の FDCUPD 765) によって制御されています. 

このドライブは動作が非常に静かで，へッドがディスクをアクセスしたままのように見えます 
が，実はへッドとディスクの間が5ミクロンはど離れており，その状態で READ / WRITE が行わ 
れています.これはヘッドがごく弱い力で，ディスクをアクセスするため，ディスクの回転によ 
って起こる空気の流れで，はんの少しへッドが浮くという東芝独自の フロー ティング構造になっ 
ているためです（写真 1-7). 

図 1-5-1 にミニデイスクユニット PA 7200の仕様を示します. 
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1-5-2 ミニディスクユニットの構成 


ミニフロッピィ•ディスクユニット PA 7200は，2台のドライブと FDC 基板から成っており，イ 
ンテリジェント化はされておりません.このため， FDC はハ•ソピア本体から直接制御され，クロ 
ックも本体から供給されています. • 

また，ハ•ソコン用のミニディスクユニットにはめずらしく，放熱用のファンが取り付けられ， 
信賴性と耐久性が一段と向上しています.図 1-5-2 に，ブロック檐成図を示します. 

1-5-3 データの転送とタイマの補正 

バソピア本体と CPU とのデータ転送は，0トラックの〇サイドを除いてはすべて256バイト单位 
で行われます.それは CPU が直結されているため，バッファが FDC 内の256ハ M 卜だけだからです. 

ディスクをアクセス中は割込を禁止しています.このため，アクセス終了後，システムタイマ 
を補正する必要があります.実際には，1/64秒の割込が人った供後，割込を锛土し， PI 1 - 5 - 3 
のように觔作完了タイミングにより，システムタイマの補正を行っています. 

1 /64抄 , 

64 H / 割り込み _n n n _ n _ H . 


_ 正なレ _ n _： !一 n _ n _ i \ _ n _ 

卜作* ( i 時間 

• 1 補正 _n_□_ n - n n_ n 

h 作動時間 H 

+ 2 補正 _ji _□_Li_ n 

' 作 WH 祁 l | " 

図 1 一 5 — 3 システムタイマ補正 


写真 I - 8 

ミニフロッピイディスク（内部基盤) 
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1-6 プリンタ 

1-6-1 概要 

ハ•ソピア#用のブリンタは，低価格のドットブリンタ1 ( PA 7250) と，品贸，多機能で岛速印 
字ができるドットブリンタ U ( PA 7251) の2機神.が用意されています（写また，ブリン 
夕•インタフェィスはセントロニクス準拠となっているため，他社のプリンタ（例えば，エブソン 
の MP -80 など）も接絞することができます.プリンタ•インタフェィスは，本体の PPI (8255-3) に 
よってコントロール信号の制御を行い，データは，データ八スから バッファ （74 LS 373) を介して出 
力されます.データ転送のタイミングは， STROBE と BUSY でとっています.図 1-6-1 に各ド 
ットプリンタの仕様を，図 1-6-2 にプリンタ•インタフェイスの接続図を示します. 


セントロニクス • ブリンタ 



図1 一 6 — 2 プリンタ • インタフェースの接続図 
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写真 I HO 
プリンタ I 

ドットプリンタ I は，ビットイメージ•ブリントができる，小型低価格のドットプリンタです. 
印字速度は30文字/秒と比較的低速ですが，ホビー用としては十分な性能を持っています.規格ゃ 
性能は， m エ舎の GP -80 を流用しているため，それと同等と考えてよいでしょう•図 1-6-3 に夕 
イミングチャートを，次ページ図 1-6-4 にブロック図を示します. 
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プリンタ n (内部基盤） 
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の制御を CPU (8085> で行っています.また，約 
少 tt 印字のときは大幅に CPU の待ち時間を節約 


図1 - 6 - 6に夕 


グチャートを示します. 
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01-6-7 ブリンタ用のコネクタ図 


1-7 ROM/RAM 力一トリッジ 


1-7-1 概要 

ROM / RAM カートリッジには2つのタイプがあり，1つはバンク切換によってメインメモリの 
下位 32 K バイトに割り当てられ， CPU から直接アクセスされます.これは ROM カートリッジのみ 
で， ROMPAC と呼ばれ本体のスロットの上段に装葙されます. 

もう1つは， I / O ポートの経由でアクセスされ，ソフトウエアからは一種のファイルとして扱わ 
れます.こちらは， ROM , RAM 々ートリッジのいずれも使用でき， ROM / RAMPAC -2 と呼ば 
れ，スロットの下段に装 S されます. ROM / RAM カートリッジ自体は，ブラスチック製のケース 
に納められていて，コネクタの部分は内側に人り込んでいるため，取り扱いにはあまり気を配る 
必要がありません（写真 1-13). 







1-7-2 ROMPAC 


ROMPAC -1 の肢大容鼠は 32 K バイトで，バンク切換によってメインメモリ上におかれるため， 
& M 言語， OS などを人れて使用することができます.その接続図を，図 1-7-1 に示します. 

現在のところ， T - BASIC - Verl . l ( PA -7520), OA BASIC(PA 7522), M 1 N 卜 PASCAUPA 
-7540)がサポートされています.このうち， PASCAL の内部基盤を写 W 1-14 に示します. 



写真 I -14 
MINI-PASCAL 


1-7-3 ROM / RAMPAC -2 

ROM / RAMPAC -2 は， I / O ボートを介して CPU とデータのやりとりをしますが，本体には I/O 
ポートはなく，データバスと，アドレスバスの〇〜1と， READ / WRITE , そしてセレクト信号 
が出ているだけです.このため， ROM / RAMPAC 内に I / O ボートが設けられています. 

アドレスバスが2本出力されているので，8ビットのボートを4つまで設けることができます. 
このことは，1つのポートをデータ入出力用に使用すると，残りの3つのポートがアドレス指定 
に使用できるので，24ビット分，つまり約 16 M バイトまでアクセス可能であることになります. 
また， ROM の場合はデータが入力方向だけなので，4つのポートをすべてアドレス指定に使用で 
きます.この場合，実に 4294 M 八イトまでアクセスすることが百 I 能になっています. 
現在のところ， 4 KRAMPAC ( PA -7240), 16 KRAMPAC ( PA -7242), 漢字 ROMPAC -2( PA - 
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cr 
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7246) がサポートされています. 

• 4，16 KRAMPAC ( PA -7240> 



4 KRAMPAC(PA 724 0) は， 16 K ビットの CMOS ， RAM (6116) が2個実装されており,很池に 
よってバックアップされているため不揮発性メモリとし扱うことができます. I / O ボートは 8255( PPI ) 
を使用しており，3つのボートのうち2つをアドレス指定に使用し，残りの1つは使用していま 
せん.図1 • 7 - 2にブロック図を示します. 


データバス 


A0 〜 A1 



図1 一7 — 2 4 KRAMPAC のブロック図 


16 KRAMPAC は 16 K ビット CMOS - RAM を8個使用しています 



写真丨 -16 
I6KRAMPAC 











第 1# ハードウエア仕碲 


• R 0 MPAC -2 

R 0 MPAC -2 は， ROM を3個まで実装でき • 23256をはじめ，2364や2732などの各種 ROM，PROM 
を使用することができます.メモリ容量は，23256を使用した場合， 96 K バイトで2364，2732の場 
合は，それぞれ 24 K バイト， 12 K バイトになります. I / O ポートには，アドレス出力用(•こ 74 LS 374 
が，データ人力用に 74 LS 244 がそれぞれ使用されています•また，漢字 ROMPAC ( PA -7246> には， 
23256が3個実装されており， JIS 第1水準の漢字と非漢字を合わせて3666文字のキャラクタ•パ 
ターンが人っています. 



次ページ図1 -7-3 に ROMPAC -2 のブロック図を示します. 


1-8 拡張ユニット ( PA -7300) 

1-8-1 拡張ユニットの 携成 

拡張ユニット （ PA - 730 0) は， RS -232 C インタフェィス， IEEE -488 インタフェィ X などの各楝ユ 
ニバーサル基板を接統することができます.拡張ユニットは6個のユニバーサルカードを格納す 
ることができますが，そのうちの1つには拡張ユニットコントローラを入れるのでオブシヨンカ 
ードは5忟までということになります.図 1-8-1 に拡張ユニットのブロック図を，図 1-8-2 
に拡張ユニットの仕様を示します. 

1-8-2 拡張ユニットコントローラ 

拡張ユニットには6個のカードスロットがありますが，そのうちの1つには拡張ユニットコン 
トローラの基板が人っています.この拡張ユニットコントローラは，各種オプションカードから 
の割込処理と，ミニディスクユニット•インタフェィスを内蔵しています.ミニディスクユニッ 
卜は，普通パソピア本体に直接取り付けますが，拡張ユニットとバソピア本体も外部インタフェ 
ィフ、によって接続されます.そのため，ミニディスクユニットは拡張ユニットの方に接続するこ 
とになります. 
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01—7 — 3 ROMPAC2 の接続図 
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図表〗一8—2拡强ユニットの仕椹 

オブションカードからの割込要求は，拡張ユニットコントローラ上にあるマスク•インヒビッ 
トスイッチによってゾフトウエアによる割込マスクを可能にするか不可能にするかきめられます. 
このスイッチが ON になっているとオプション々ードからの割込は直接本体に伝わります. OFF に 
なっている場合は I / O ボートの 4 EH のビット7が1のときだけ割込可となり，0のときはオブショ 
ンカードからの割込は無視されます•図1 - 8-3 に割込マスク制御についての表を示します. 
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- 8 - 6に各コネクタの接統図をそれぞれ示しま 
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拡張ユニット外部バスコネクタ囟 

9 RS -232 C インタフェィス 

3-1 概要 


私体には，転送速度が 600 bps までの RS -232 C インタフ エイ スが内蔵さ; 
こ，拡張 RS -232 C インタフ x ィ スを接続すれば，転送速度を4800 bps ま 


います（写真 
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ンタフェイス 
って制御され，ハード 

1 -9 - 1に， RS -232 C 


8255-3 
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C 1489 or 75189 
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図 1 一 9 一 1 RS — 232 C インタフェイスのブロック図 


1-9-2 データ転送のタイミング 

データ転送のタイミングは， CTC のタイマ割込によってとられています.データの送信は， 
1-9-2 のように5回目の割込で次のデータを出力します.一方，データの受信は割込時にフ 
ーズをカウントアップしていき，フェーズの値によってタイミングをとっています.図卜 9- 
のようにフェーズの値は最初〇で，フェーズの〇，1，2でスタートビットとし，データビッ 
はフェーズ6でサンプリングします.次の信号がデータのときはフェーズを3にもどし，デー 
が終わるとそのままフェーズがカウントアップされ，フェー X 10 でパリティをサンプリングし 







フェーズ 14 でストップビットとします.その後，データは受信バッファに送られ，フェーズを0 
にもどし，同じことがくり返えされます.このようにして， RS -232 C の送•受信のソフトウェア 
による制御を行っています. 
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データ* 8 ビット.バリティ有•ストップビット1の場合 
図1 一9一3 データ入力のタイミング 


1-9-3 回線の接統 (ハンドシェイク） 

RS -232 C 回線で他の機器と通信するには，数々の方法がありますが，ここでは妝も簡串なコン 
ビュータ間を直接コードでつなぐ方法につぃて説明します.カセットインタフェイスのように， 
ただデータを送ったり，読みとったりするだけの場合は，各コネクタの GND をつなぎ， TXD と RXD 
をそれぞれ接続すれば，一応通信ができます（図1 -9-4 参照). 

RS -232 C インタフェイスには各種のコントロール信号が人出力されてぃます.これらの信号は， 
現在送信可であるかとか，回線が接統されてぃるか否かをやりとりするためのもので，これらを 
接続（ハンドシェイク）することにより，より確実に通信を行うことができます（図 1-9- 5参照）. 

パソピア本体内の RS -232 C コネクタ，およひ *1^-232(： と規格コネクタの接続図を図い9 - 6に， 
各信号の機能を図1 - 9 - 7に示します. 
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図1 — 9一4最も簡皐な接統法 
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図 1 一9一7 各信号の機能 
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第 2 章 

T - BASIC の内部構造 


2-1 メモリ内部の状態 

2-2 内部ルーチン.ポインタを使う 




第 2 章 T - BASIC の内部構造 


メモリ 内部の状態 

もでは，ハ•ゾピアに使用されている. T - ROMBASIC ( Verl . l ) を中心に解説します. 
- BASIC は， Microsoft - BASIC ( Ver 5 .0) にグラフィっク機能や， RAMPAC 処现榉能等を 
t ■たもので，持®としては.変数名を40字まで判断する， WHILE . WEND 命令を持つ， 
こげられます. 

第1承で述べたように， V - RAM のアクセスに DMA を行わないため，他の Microsoft 系 
こ比べ，商速 （1.5 倍程度>になっています.（月刊アスキー57•年10月号参照） 

1 メモリ•マップ 

lSIC では， ROM 版 Verl . O , Verl . l , ともに， ROM 32 K バイト， RAM 32 K バイトを使用 
i す.そのため， V - RAM を除いた 64 K バイトの RAM の t •分にあたる 32 K バイトは未使用 


対し， DISK 版では， ROM 版で未使用であった RAM に DISK - BASIC が邦き込まれ, 64 KRAM 
一として使用されています. （1-1-3 参照） 
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未使用> 


UbH 


ラム領域 


変数領域 

















通信(一 3 ) 速度 










2-1-2 プログラム領域 


T - BASIC ( DISK ) では， ユーザ •エリアは， 8000 H ( DISK 版は 942 CH ) から F 5 FBH ( DISK 版は 
FCE 3 H 〉 までとなっています.このユーザ•エリアは次の図のように割り当られています. 

図2— 1 一3 ( a ) ROM 版 ユーザ •エリア 


8 0 0 0 


装 S 1 


ドライブデータのアドレステーブル 
装*数 X 2 バイト （4 バイト） 
(= 2 ) 


0 0 4 


■ / 


ファイルデータのアドレステーブル 


4240バイ 


_レス 


ラ変数 


配列変数 


グ領域 


未使明領域 


領域 



K 版ユーザ•エリア 



ドライブデータのアドレステーブル 
(フロッピー装 S 数 + 2 ) x 2バイト 
デフオルトは1 


6〜12バイ 


ファイルデータのアドレステーブル 

(ファイル数 + 1 ) x2 + 8 バイト • 


•10 〜40バイト 


r - 

k _ 

* — 

— 

1 

+ 8 


I I 7 

” ノ II 神 A 


アイル Jt 0 

[ _ つ— 

アイル»1 

r 

I - 



ドライブデータテーブル 
装置数 >060バイト••… 


480〜960バイ 


3〜6 

ファイルテーブル （ FCB バッファ） 
(ファイル数+1 ) + (9 +256) バイ 
265〜4240バイト 


変数 


列変数 



— 2 7 6 9, 

2 7 6 AH 

のボインタによる 


未使用傾域 


領域 



_ 一0 0 0 4 H , 

0 0 0 5 H 

_のボインタ 

拿 

- -7 


注意 

•の付いたアドレスはデフオルト状態 

で立ち上げた場合 
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のうちのブログラム領域の大きさは，次の図表のように，電源投入時もしくはリセット時に 
するファイル数によって決まります. 

図 2 —1—4 ブログラム領域の大きさ （ ROM 版） 



の表の中の”デフオルト"とは ， "How many files (0 〜15)?"に対して，リターンキーのみ 
した場合の値です. 

タック領域は， F 7 FA 〜 F 5 FBH の512バイトとなっています • ブログラム領域は次の式で計算 







2 9 T BASIC の内部怫适 

できます. 

ROM 版 

ブログラム領域サイズ = 29600-267 xF (バイト） F :ファイル数 

DISK 版 

ブログラム領域サイズ = 26212-267 xF — 162 XD (バイト） F :ファイル数 

D :ドライブ数 

ブログラムの格納されるアドレス等は，ポインタによって指定されています.ポインタは，そ 
れぞれ次のアドレスにあります. 


02-1-5 T - BASIC / T-DISK BASIC ボインター筧 


内部シンボル 

in * itsa 

DKVTAB 

FI LTAB 

TXTTAB 

VARTAB 

AKYTAB 

ST K EX I ) 

FRKTOP 

M KM S I Z 

: M 


内 容 

アドレス | 

ROM 版 

DISK 版 

BASIC で使う KAM の W ド位アドレス 

= 8 0 0 0 

= 9 4 2 0 

ドライブテーブル（アドレス}の先頭アドレス 

— 

FC 8 4 

5 A 6 8 

ファイルテーブル（アドレス）の； t !/ fi アドレス 

FC 8 2 

5 A 6 6 

フログラムテキストの; tyfl アドレス 

F 8 5 7 

-- J 

2 7 6 9 

スカラ変数の 5 t 頭アドレス 

KB 2 3 

^ 1 

2 A 3 6 

アレイ変数の先祯ァドレス 

FB 2 5 

2 A 3 8 

1ストリング妬域の先頭アドレス 

| 

FB 2 7 

2 A 3 A 

■ 

ストリング祯域の未使 W 先頭ァドレス 

F A F C 

2 A 0 E 

ストリング妬域の沿終アドレス 

FAD 7 

2 9 E 9 

BASIC スタックの敁終アドレス （ KAM 上限） 

F 8 5 3 

2 7 6 5 



「 


TOFM K 


mm- 













このポインタの内容は， PEEK 関数により調べることができます. ROM 版で，ポインタを調べ 
てみましょう.電源投人時に，ファイル数を0にして，ポインタを PEEK で読みます. 

ブログラムを人力する前は，次のようになります. 




82 

•xt<pt*K<4Hfb23> 

82 


82 

xt<p##k<4Hfb27>> 

82 


ボインタは，（下位1バイト），（上位1バイト）の順番で害かれています.ブログラムを打ち込 
んで変化を見てみましょう. 


き； 


• X ♦く 瘳く く &Hf838>> 

• x ， <p"k<&hfg23>> •h.x ， <p"k<&Hfb24>> 

• xt<p#tk<«cH^g?3>) ,h#x»<p##K(««Hfb2«i>) 
xt<pt»k<lHfg|7)> ,htx»<p##k<«»Hfb28)) 


ブログラム開始のボインタを除いたボインタが変化しました.このブログラムを実行すると 
さらに変化するポインタがあります. 


RUN 

^hex»<peek<ficHf8?7>) f h#xt<peek 858) 
^^ex^<peek<&hfg|3)) 


x^<p»ek<&Hfg|5)) f h#xt<p»#k(«cH^b26>) 
ex^<p»*k<&Hfg|7)),ht 


ブログラムを実行すると，配列領域の始まりのボインタとフリーエリアの始まりを示すボイ 
夕が変化しました. 
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各ボインタの変化を次の図表に示します. 



第 2 廬 T-BASIC の内部戊违 


図 2 — 1 一 6 各ポインタの変化 (ROM 版) 



アドレス 

電源投入時 

ブログラム 
実行前 

ブログラム 
実行後 

ブログラムの開始 

1 

F 8 5 7. 5 8 

n 

8 2 5 7 1 

_ 1 

変®領域の始まり 

FB 2 3. 2 4 

1 

8 2 5 B 

L _ 

8 2 A 9 

_ 

I 1 

配列変数領域の始まり 

FB 2 5. 2 6 

1 

8 2 5 B 

1 

8 2 A 9 

8 2 B 8 

__ 

フリーエリアの始まり 

1 _ 

F B 2 7 . 2 8 

8 2 5 B 

8 2 A 9 

■ 1 

8 3 F 0 


2-1-3 中間言語（トークン） 

BASIC の各命令（キーワード）は，メモリの効率を上げ，実行速度を向上させるために，メモリ 
上では，1八イト L しくは2バイトの中間言語（トークン）の形で羚き込まれています. 

次にキーワードと中間言語の纣ぽ•表を載せます.この対応表は ROM 内にあり， T-ROM BASIC 
Ver 1.0 では 1995 H から, Verl . l では 19 ECH から， T - DISKBAS 1 C では 20 A 0 H から置かれていま 
す. 

02-1-7 キーワードと中間首語の対応表 


KEYWORD TOKEN 


AUTO 

AA 

FPOS 

FF A8 

PRESET 

CE 

AND 

F4 

GOTO 

89 

POINT 

FF 02 

ABS 

FF 86 

60 TO 

89 

PAINT 

CC 

ATN 

FF 8E 

60SUB 

8D 

PLAY 

06 

ASC 

FF 95 

GET 

BC 

RETURN 

8E 

ATTR 秦 

E6 

HEX^ 

FF ?A 

READ 

87 

BSAUE 

D2 

INPUT 

85 

RUN 

8A 

BLOAD 

D1 

IF 

8B 

RESTORE 

8C 

CLOSE 

BF 

INSTR 

E4 

REM 

8F 

CONT 

99 

I NT 

FF 65 

RESUME 

A8 

CLEAR 

92 

INP 

FF 90 

RSET 

C6 

C し DAD 

9B 

IMP 

F8 

RIGHTS 

FF 82 

CSAUE 

9A 

INIT 

D4 

RND 

FF 88 

CSRLIN 

E7 

INKEY 擊 

EB 

RENUM 

AB 

CINT 

FF ?D 

KEY 

FF D3 

R 州 DOMI2E 

B8 

CSNG 

FF 9E 

K1 しし 

C4 

SCREEN 

FF D0 

CDB し 

FF ?F 

KANJI 

FF D5 

STOP 

90 

OJ\ 

FF A1 

LPRINT 

9D 

SWAP 

A4 

C リ S 

FF A2 

LLIST 

9E 

SET 

BE 

CVD 

FF A3 

LPOS 

FF 9B 

SAVJE 

C7 

COS 

FF 8C 

LET 

88 

SPC< 

DE 

CHR^ 

FF 96 

LOCATE 

C? 

STEP 

DB 

CALL 

B3 

LINE 

Be 

SGN 

FF 84 

COMMON 

B5 

LOAD 

C0 

SQR 

FF 87 

CHAIN 

B6 

し SET 

C5 

SIN 

FF 89 
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STR$ 

STRING! 

SPACES 

SOUND 

THEN 

TRON 

TROFF 

TAB( 

TO 

T 州 

TERM 

TIME 

USING 

USR 

VA し 

UARPTR 

WIDTH 

WAIT 

WHILE 

WEND 

WRITE 

OR 


X 




LIST 

LFILES 

LOG 

LOC 

し EN 

LEFTS 

し OF 

MOTOR 

MERGE 

MOD 

MK1S 

MKSS 

MKD 搴 

MID 秦 

NEXT 


NOT 

OPEN 

OUT 

ON 

OR 

OCT% 

OPTION 

OFF 

PRINT 

PUT 

POKE 

POS 

PEEK 

PORT 

PSET 


COM 

CIRCLE 
COLOR 
C し S 

DELETE 

DATA 

DIM 

DEFSTR 

DEFINT 

DEFSNG 

DEFDB し 

DSKO 搴 

DEF 

DSK1 擊 

DSKF 

DRAW 

ELSE 

END 

ERASE 

EDIT 

ERROR 

ERL 

ERR 

EXP 

EOF 

ECW 

FOR 

FIELD 

FILES 

FN 

FRE 

FIX 


2-1-4 中間言語の処理 


BASIC インタブリタがブログラムを実行するときには，中間言語を解沢し，ジャンプテーブル 
に従って処理ルーチンをコールして実行しています.ジャンプテーブルは ROM 版 Verl . O では184 
AH , Verl . l では 18 A 2 H から中間言語の小さいものから順に冉き込まれています. 
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3 

9 


8 

9 


D 

8 


44 

D 


4 

9 


FF E2 FF D0D9A2A3DA D8FF D3 FF E3DC FF iss 96B 1B2B4F6EFF0F 1F2F3FAE5ECEDEE 


8AA69281A7A9AAAB83 ??? 1979C 
93C8FFFFFFFFFFCBC 1F9FFFFFFFF83C394DFBA9C95F5FFB7EA9 1BD98FFFFFFCD 


D4A4 8 A 8 A 
FFCACF9FA98466ACADAEAFB997E9FFD5A 18 1A5A6A7SE 1FFFFF782BBC2DDFFFF 






なお処理ルーチンの一覧表は APPENDIX を参照して下さい. 


第 2 衆 T-BASIC の内 8R 碘迓 


スぺース 

、 'A" 

、' c " 

次のバイトは1バイトの粮数で 
あることを示す識別コード 
OAH= 10 
''广 
行の終 1 ) 

リンクポインタ 

行»号30 

'，ぐ， 

を示す 
1を示す 


次の' ff の開始ァドレスを 
示すリンクボインタ 
(次のけは 8 2 6 9 H から) 

irftvjo 0 0 A H — 10 

REM を示す中間言語 

スペース '、ご 
スペース 
S 

a 

'' " 

m 

、 v’ 

e 


2-1-5 プログラムの格納状態 

T - BASIC の各命令はメモリ上に16進数2桁に圧縮されて S き込まれています.その状態を調べ 
ましよう. 

T - BASIC に機械語モニタがないのでその代用として APPENDIX にモニタ機能ブログラムを載 
せましたのでこれを利用します. 

また， PAS 0 PIA 用のデバッガとして， DD - PS (ダイナミック•デバッガ）がアスキー•コンシ 
ューマ•ブロダク ッ から発充されていますので，内部を詳しく調べたい方は利用されるとよいで 


付属のブログラムの行番号は10000から始まっているので，行番行が10000より小さい BASIC の 
プログラムと共存できます. 

このプログラムを使って先ほどのサンブルプログラムがメモリに S き込まれている様子を調べ 
てみましよう. 


8250 

8260 

8270 

8280 

8290 

82A0 

82B0 

82C0 

82D0 

82E0 


00 00 
ee ee 
ee ee 

ED ED 
4? 4? 

ee ee 

50 30 

27 27 
78 78 
78 78 


ee ee 
ee ee 
08 00 
ED ED 

49 49 

ee ee 

50 30 

27 27 
78 78 
78 78 


ee 96 
ee ee 
ee ee 

ED ED 
49 4? 
ee ee 
30 30 

27 27 
78 78 
70 78 


ee ee 
ee ee 
ee ee 

ED ED 
49 4? 

ee ee 

30 30 

27 27 
78 78 
78 78 


00 69 
00 73 
00 41 
ED 12 
49 29 

ee B 6 
se ee 

27 3A 
78 78 
78 78 


02 0A 
8214 
ED 
26 
ED 
82 
91 
0F E3 
78 78 
78 00 


12 

D8 

41 

46 

20 


ee 8F 
ee 86 
3A 42 
20 0F 
FI42 
80 41 
4124 
FE 70 
78 78 
13 83 


29 29 
26 41 
EO 13 
0A 00 
EF 4? 
24 EO 
00 CS 
78 78 
78 78 
1A 27 



.Umm. •■•A 

• AO.I BO. 
0 •••ハ… 
1) OARB\I 
.JUF.A^O 

P • 了 • 料•少 

• «4k.xxx 
xxxxxxxx 

XXX • < 


55 

A7 

3? 

57 

IB 

45 

19 

38 

02 

61 


このように， BASIC のブログラムは， 2 桁の 16 進数に変換されて，メモリに丼き込まれていま 
す.以下にその解説を載せます. 


02-1-9 ブログラムの格納状態 


018F A9012E01D2 
2420 02088104 E1 


• - v • -- , 

9 2A0F0031D0C50 
6 8008227667662 
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31 ''ド 

3 A 

w • 夢， 

• 

00 行の終りを示している. 

4 2 

、す 

7 5 1リンクポインタ 

8 2 ) 

ED 

13 

\\ •• 

2を示す 

\ ? T »^2 0 

0 0 J 

0 0 

行の終り 

8 6 DIM を示す 




2 バイトで表されるリンクボインタなどの上位と下位の順序が，逆になっている点に注意して 
下さい. 

また， T-BASIC では， GOTO . GOSUB.THEN に絞く行番号は，実行時に飛び先を調べて苦- 
き換えています. 

先はどのブログラムに， 


5 GOTO 10000 

を加えて調べてみましょう. 

まず，実行前の状態を見るために， RUN 10000として，8259〜 826 FS 地を見て下さい.次に灾 
行後の状態を見るために， RUN として比べてみます. 


8239 I 00 ee ee ee 
8260 I le 27 ee 73 


e29e 1 ee ee ee ee 

8260 1 CE 82 00 73 


00 ee ee C6 ee 63 
82 0A ee 8F 20 2e 


00 00 00 C6 00 63 
82 0A ee 8F 20 20 


82 es ee e? 2e 8E 

73 616D 70 6C 69 


82 03 ee 8? 20 0D 
73 61 60 70 6C 63 


• ••••••• • Cfls. • 3 梦 

• / . ••ftAmpl• 69 


• ••••••• • 38 

• • • ft ..S4mpl• 82 


5 行の GOTO 文を実行する前と後で， 825 FH からの値が， 0 E 10 27から， 0 D CE 82,に変 
っているのがわかります. 0 E は，行番号を示す識別コードで， 0 D はアドレスを示す識別コードで 
す. 

識別コードについては後述しますので，ここでは，飛び先の行番号10000の16進表現 2710 H が， 
飛び先の#地 82 CEH に変わっている点に注目して下さい. 

識別コードとはブログラムエリア中で数値の前につけられていて，それに絞く数値が何である 
かを示すもので，インタブり夕がキーワードや変数名と区別するために使用されます. 

識別コードは次のようになっています. 
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その型によリ変換されて格納されます. 

て，数値が16進2八イトに変換され，下位，上位の順で 

&値が，4バイトの浮動小数点表記法により表現され格 


数 W (の表現が8バイトになった以外は，単精度数と 












このように，数値の種類によって，格納のされ方が異なるのが，わかります. 

ここで扱った浮動小数点表記法については，変数値にも使われていますので，その頂で説明し 
たいと思います. 

2-1-6 変数の格納状態 

プログラムの中で使用されている変数の値も • 型により変換されて格納されるのは数値の場合 
と同じです. 

しかし，変数は定数のように数値と異なり，ブログラムのテキストエリアとは別の変数エリア 
に害き込まれています. 

変数値の格納されている場所を示すポインタは，図 2-1-6 に示しましたので，それを使って 
格納のされ方を見てみましょう. 


10 

20 PROGR^i 2-1-8 

30 1XX 

40 WIDTH 80ICLS 
30 DIM AAt<10) f BA<10) 

69 FOR LOOP*1 TO10 

70 AA«<LOOP>-8TRIN0#<LOOP f 32^L00P> 
80 BA<LOOP>-I 

90 TOTAL-TOTAL♦LOOP 

lee NEXT LOOP 

lie CA#-STRIN0^<253 f •*•> 

120 DAX.-25S 

130 PRINT-SET COMPLETE- 


h のブログラムを打ち込んで，実行したのち • 格納状態を昆て下さい. 
まず，単純変数から調’ベます. 


»OFB20 f FB2F 
FB20 00 37 83 

HP 


L 3 A _03 J K 83 j 



58 82 04 04 04 04 04 

艾 Tff 紡 3 BBH 

3 5 Ch 

_靡妗変》阗始8 3 3 AH 


• 7 •し寧 • • 



08330 f 835F 

8330 4D 56 4C 4 5 54 45 22 00 00 00」 04 4C 4F 02 CF 00 
8340 00 00 30 84 04 54 4F 03 D4 Cl CC 80 00 5C 86 03 
8350 ^43 41 00 FF CA 9C 92 44 41 00 FF 96]03 414180 


_P 


MPLETE_ - LO... 

• •0..TO .. 

CA.DA. . . .AA. 


このように， A ， B ， C の値が，整数，単精度，倍精度の別に，型変換されているのがわかり 
ます.ここで図 2-1-11 に変数の格納状態についてまとめます. 
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班 2# T-BASIC の巧部佴迮 



変数名の 
変数の型イト 

変数名の 
残り 

ベイト数 

整数型 

• 

• 

§ 

♦ 

0 2 2 バイト 

1バイト 

車 ni 度型 

0 4 2 バイト 

1バイト 

倍精度坚 0 8 2バイト 

1バイト 

文字列型 

| 〇3 2バイト 

1バイト 


残り 


データ部分 

- VARPTR _ はこの 

アドレスを指す 


合 計 


1ィト j 

irn 


8 


12 + 


文字数ホインタ 


7 + n/< 


ストリングデイスクリフタ 
ホインタは文字列の怙納アドレスを衍す. 

図2— 〗一1〗型による変数の格納状態 

ところで，今まで度々出てきた，浮動小数点表記法について説明しましょう. 

例として ， LOOP = 303!がどう格納されるか，その手顒を追ってみます. 


0 4 

V 1 

4 C : 4 F 

0 2 

C F : I ) 0 

0 0 

8 0 

17 1 

1 

8 9 


p 






i- i 


取 M 数 L 0 残*) 2文字 0 P 浮抑小数*表記部分 


(» I ••位を立ててある) 

0 2-1 -12 a LOOP ! = 303!の格納状態 

LOOP の格納状態は上の通りです. 

浮觔小数点表記部は次のようになっています. 


0 0 

、■__»■ ■ ■」 

8 0 17 

8 9 

仮数部 

仮数部 仮数部 

指数部 


ド位 中位 l.Ul (81 H が加えられている) 

図2— 丨一 12b 浮動小数点表記部分 


この格納の手順は次のようになります. 

図2— 〗一〗3格納の手順 

LOOP =303! 

① 数値を2進数に変換する 一303 = 100〗01111 2 

② 2を底とする指数表現になおす一100101 m = i.ooionn X 2 8 
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③ 栺数（この場合 8) に81 H を加え 一 8 +81H=89H 
指数部とする 

④ 仮数部の小数部を取り出す 一1.00101111-*00101111 

⑤ 左に正負に対応する値を付け加 一 0010111 1-00 0101111 
える（正—0,負— 1) 

⑧ 24ビット（倍請度は56ビット）に 一000101111000000000000000 
なるよう後に0をつける 

(7) 8ビットごとに16進になおす 一00010111 = 17H 

10000000=80 H 
00000000=00 H 

(D 下位，中位，上位の順になおし一¬ 
指数部を後ろにおく 

また，逆に，格納された値から10進の値を知るためには，この手順の逆を行えばよいのですが， 
そのかわりに， CVS 命令を使って， 



CVS(CHR$(&HW) +CHR$(&HX) +CHR$(&HY) +CHR$(&HZ) 


を行えばよいでしょう. W ， X , Y , Z には16進で浮動小数点表記部の内容を順に人れます.この 
型の数値の計箅はすべて，ワークエリア内の FAC と呼ばれる，浮動小数点アキュムレータを通じ 
て行われます. 

次は配列変数です.配列変数の開始アドレスは先はど调ベたポインタによると， FB 25, 26 H を 
見ればわかります.ただし，配列頟域は，ダンプに BASIC ブログラムを使っていると，新しい変 
数ができるたびにメモリの後ろの方に転送されてしまうので注意して下さい. 

配列変数領域は次のようになっています. 


a ? 列域 


«D835u,d3BF 


8356 

43 

41 



Lr-i 

9i 

0 2 

•44 

41 

6u 

FF 


41 

41 



• • • • • • • • 

8360 

2T 

00 

01 


09 

09 

96 

00 

01 

FF 

9D 

02 

FD 

?D 

03 

FA 

t.. 

• ••••••••••• 

8370 

90 

04 

F6 

9D 

05 

FI 

9D 

06 

EB 

9D 

07 

E4 

90 

08 

DC 

9D 

• • • 

• ••••••••••• 

8380 

09 

D3 

90 

0A 

C9 

9D 

04 

42 

41 

60 

2F 

00 

01 

6B 

00 

60 

籲## 

• • • • BA•/ • • • • 

8390 

00 

00 

00 

00 

00 

ce 

00 

00 

06 

A8 

00 

00 

06 

B0 

00 

ee 


• ••••••••••• 

83A0 | 

00 

90 

06 

00 

60 

Be 

00 

00 

00 

D6 

00 

00 

00 

F0 

00 

00 

• • • 

_• ••籲參籲籲籲籲# 籲 

83B0 1 

00 

88 

00 

09 

00 

98 

00 

00 

00 

A6 

00 r 

A0 

7E 

B7 

C6 

C6 

# # # 

• ••••••••••• 


MP 


なお，メモリに格納される順番は，3次; e 配列を例にとると次のようになります. 

例 A ( 3，3，3 ) 

A (0,0,0)， A (1,0,0)， A (1,1,0). ， A (2,3,3>， A (3,3,3) 

次は文字列です.文字列の場合，格納されているのは実際の文字データではなく，文字列のあ 
る場所を示す，ストリング•ディスクリプタ （3 バイト）です.ストリング•ディスクリプタは次 
のような_成になっています. 
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AA $ (0) 
AA $(10) 


义 


文 


デ 


夕 


AA $ (0) には 
データがない 


) 


夕 

は 

F 5 FBH 

力、 

ら 

m 

納 

さ 

れ 

て 


BA (0) のデータ BA (1) のデータ 
の浮動小数点表現 


リ 

図2_1—14配列変数の格納状態 

:文字列が格納されているメモリの先頭アドレスを指します. 


取 W 度型 BA (10> 


系2 9 T-BASIC の門8卩パ罵 ii 


VARPTR ( A (0)) VARPTR ( A (1)) 


文字列型 AA $(10) 


03 


41410024 00 


0 l |0 B 00 


000000 


FB F 5 


-文字数 （ VARPTR 関数で示されるのはこのアドレスです) 


ド位 j h 位 


02-1-15 ストリング•ライスクリブタの構成 

77 


0 B 00 00 00 00 00 00 00 00 C 0 


. —配列の«索数 11 


A —配列の次)£数1 / l\I H 

<24 

/ /V 

A —以後(:使 HJ するメモリ ht 3 xll + 3=36 

‘ 変数名の残りのバィト数(ここでは〇} 

% 

/ 

t 変数名 AA 

▲ 配列変数の型(文卞列変坎) 


. ^ ftl ! 列の®素数 11 

. —配列の次元数1 
. —以後 l : f 4 iMJ するメモ 


I 変数名の残りのバィト数 夕 

ン 

. —変数名 BA ボ 

\ 

% 

, ^ rtLl 列変数の型 











文字列領域は， T - BISIC では配列領域の終わりの次のバイトから CLEAR の第2パラメータで設 
定されるアドレスの前までとなっています.マニュアルには奔かれていませんが， T - BASIC では 
CLEAR の第1パラメータは無効で，文字列領域は前記の空きエリアを自由に使っています.その 
ため，文字列のゴミがたまったときのガベージコレクション（エリアの整理〉の時間も長く，約20〜30 
秒かかることもあります. 

2-2 内部 ルーチン •ポインタを使う 


巻末に， T - BASIC インタプリタ （Ver 1.1) の内部ルーチンの開始アドレスー^表を敕せました 
が，実際に機械語でこれらのルーチンを利用される場合，方法に困る片があると思います. 

そこで，代表的ないくつかのルーチンについて，その機械語での使用法を簡単に説明します. 
また， BASIC のボインタの応用例を紹分します. 

2-2-1 内部ルーチンの使用例 

内部ルーチンを使うときにはデータの受け渡しに気をつける必要があります.例えば ， CIRCLE 
のルーチンをコールするときには，アスキーコードで示された座標や半径などのハ•ラメータの人 
I てあるメモリのアドレスを， HL レジスタに人れてからコールしなければ動作をしません. 




NKM1* •" 

Id hLWB^h f »t 5tnr« 9 \r^A 


98 dB / id hL9dB» 

d i: 部挺 


••if 

call 

call 


誇 ns 


ft hi 0dWh 

II blidi 


ic61 



； M 1% o F * 

: feU 

ISW ぼ!! 0 * 

VSS49T OUtM 
rtstfiTf point ぎ 


«■ m Wf LIST 




写真 2- I 

内部ルーチンの使用例 


BASIC ver 1.1 の内部ルーチンを使ったブログラムを次に示します. 


eee clear ^hbfff 
0 10 CLS 
020 RESTORE 
630 WIDTH 80 
040 FOR 1-1 TO ? 
ese READ At 
060 LOCATE 20,1X2+3 
070 PRINT At| 

eee next i 

• 090 A^*1NKEY 參 

1100 IF AOR A%< m 1* OR A%> m e m THEN 1098 
1110 PRINT ■ •♦AS| 

126 IF 1-THEN RESTORE 1720 







W2 章 T-BASIC の内部 1 羁邁 


• 30 

• 40 
50 
.60 
70 
80 
.90 

1260 

12 ie 

1220 

1230 

1240 

1250 

1260 

1278 

1280 

1290 

1300 

1310 

1326 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1460 

1410 

1420 

1430 

1440 

1430 

1460 

1470 

1488 

1490 

1300 

1510 

1920 

1330 

1940 

1950 

1569 

1370 

1980 


THEN RESTORE 1830 
THEN RESTORE 1930 
THEN RESTORE 2040 
THEN RESTORE 2230 
THEN RESTORE 2360 
THEN RESTORE 2490 
THEN CLSiEND 


XXX hWCHINE L^GUAGE PROGR^I 


F A ♦- _2 
F A ♦- *3 
F A»-*4 
F At--5 
F A ♦- -6 
F At-"7 
F A^-_8_ 

C し S 

PRINT TAB<IS) 

PRINT 

ROUTINE-0 

T-20 

X-0 

READ At 

IF lNSTR<A» f ■/ -J-e THEN 1330 
PRINT LEFT^<At f 4> ♦- i •| 

X-0 

ADDRESS-VAL<♦LEFTt<At f 4)) 
A^-RI0HTt<At f 2> 

IF ROUTINE-0 THEN ROUTINE-ADDRESS 
IF し EFT.<A 攀 , OO-/* THEN 1410 
IF R1GHT.<A 拿 f 1> ■… THEN 1380 
READ 0 % 

GOTO 1340 

PRINT TAB<T>| • 事 • 裏 A ， 


.•nd- THEN 1470 


XXX DATA DUMP LIST XXX 



GOTO 1260 
IF At<> B progr 
T_37 
PRINT 

PRINT TABCIS) 

PRINT 
GOTO 1260 

IF At- B d*t4.«nd B THEN 1540 
POKE ADDRESS, リ AL<W+A^> 
ADDRESS-ADDRESS^1 
IF X-l THEN PRINT • ■I 

X-0 

PRINT A - | 

GOTO 1260 
FOR 1-1 TO 3000 
NEXT I 

PRINT CHW<7)i 
CALL ROUTINE 
GOTO 1010 

CIRCLE <320, 100) 9 1S0_ 
PAINT <0 9 0> 9 I s 
PSET <80,30) ,4- 
SOUND 46 f iee a 
PRINT "PASOPIA* 

INPUT XiPRINT SIN<X) - 
INPUT XiPRINT ie ： 

END 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


2 

3 

4 

5 

6 
7 


XX 1 


1660 DATA *8 . 

1670 DATA WHICH DO YOU 
1480 / 

1690 7 m*chin# 

1700 " 


YOU ? 

羲 ngu 羲 g 參 pr 


progr 


710 

/ 

circl# 






720 

DATA 

c88e/3e 9 80 

/ 

9 

Id 4, 

80h 

1 

cod 譬 of «cr«»n 2 

730 

748 

DATA 

cd 9 22 9 10 

/ 

9 

cal 1 

1622h 

事 

«cr ■翁 n 

DATA 

cd f cb f 08 

/ 

1 

C 暴 11 

8c bh 

1 

Clft 

750 

760 

DATA 

21 ， 00,d0 

/ 

f 

Id hi 

9 edeeeh 

1 

op 譬 r And "( 320 f 100) 

DATA 

cd f A3 f 9a 

/ 

1 

cal1 

3“3h 

1 

circl# 

770 

DATA 

c? 

/ 

f 

r^t 


1 

return to BASIC 

780 

DATA 

progr 黍 mmd 




790 

DATA 

d800/28,33,32.30,2c,31,30,30,29, 

/ 

(320 f 100) 9 150 

800 

DATA 

2c, 31,33 ,30,00 




810 

DATA 

d 羲 t 毳•眷 nd 





826 

/ 

pain t 






838 

DATA 

ceie/3» 9 40 

1 

Id 

40h 

» 

cod 费 of scr««n 1 

840 

DATA 

cd $ 22 f 10 

/ 

9 

/ 

» 

cal1 

1022h 

1 «cr 蕾春 n %mt 

830 

DATA 

cd 9 cb f 08 

call 

6cbh 

1 els 
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i860 OAT〆 
1870 DATA 
1880 DATA 
1890 DATA 


1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1900 

1990 

2 eee 
20 10 
2026 
2030 
2046 
2030 
2060 
2070 
2 eee 

2090 


DATA 

DATA 

• 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

/ 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


21,16 

cd 9 5b 

c9 

pr ， 

d0ie/28 y 30 

da 

p%9t 

c020/3«,40 

cd f 22 

cd,cb 


21,20 

cd f b ^ 


ee DA- 

10 DAT 


DATA 

OATA 


40 DA- 
50 OA ， 


DATA 

DATA 

DATA 

DATA 


2200 

2210 

2220 

2230 

2240 

2230 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2366 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2448 

2430 

2460 

2470 

2480 

2490 

2 see 

2510 

2320 

2930 

2940 

2550 

2360 

2570 

2980 


DATA 

DATA 


DATA 

DATA 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

OATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

/ 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


pr 

d020/28 f 38 
2c ,34 

da 

sound 
c030/21 f 30 
cd f 38 
21,40 
cd f S8 
21,30 
cd f 50. 
21 9 6 e f d 0 

cd f S8 
21 t 7e 
cd t 98 
c9 

pr 

€1030/34,30 
d040/34 f 32 
d030/34 f 34 
d040/34 f 3S 
d070/34 f 37 
d* 

print *PAS 

ce90/21 9 89 

Cd 9 4C 

c9 

pr. 

de8e/se f 4i 

da 

input xipr 

c060/21 f ?0 
cd 9 «c 
cd f S8 
23 

cd f 04 
cd f 6c 
cd|*0 
cd,22 


cd 9 *0 
cd 9 22 

•3 

21 f a6 

cd f ac 


pr 

d0?0/6? f 

d040/73 f 69 

da 

input xipr 
c090/21 f b0 
cd 9 ac 
cd 9 98 
23 

cd f 84 

cd 9 f8 

2 巍 ,44 

u 9 e* 

cd f b2 

cd.6c 



ee 
,ee 
3e t ee 


hi 

6m 

69 
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OD 


2390 DAT 
2600 DAT 
2610 DAT 
2620 DAT 
2630 DAT 
2648 DAT 
2650 DAT 
2660 DATA 
2670 DATA d0b0/69 
2680 DATA d0c0/78 9 2a 9 31 9 30 9 20 9 3d 9 00 
2690 DATA d*t* • 會 nd 


DAT 

DAT. 


賢:超て案:’!夕^^祝^^:满：: .，一 
^fvT^nn^Bc^^jnfTih^v" 奮 v< へ : ゃな .,! ミ， , て嚷 

j v th 土 :”’ S^K ； 3' 

r^% T マ ::''' 访を ^^^^^^^^^^^^^^ 

TTW^^TWTy^rTWTWTW^WTm^ v -:、 へ；、 Ar r - ，を ®^^^^^^^^^^^^^ 
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実行させると解かるように，このブログラムは.メニューに示した各ルーチンに対して必要な 
パラメータを設定し，受け渡しを行ったのち，そのルーチンを コールす るもので，はとんどのル 
ーチンは，このメニューのいずれかの方法を応 m すれば使用できます. 

以下にブログラムの詳細を示します. 

ブログラムの説明 

1710〜1810 SCREEN モード2とするために.アキュムレータに 80 H をロー ドしてスクリー 

ンのルーチンをコー/レしています.|リを描くためのパラメータの（320,100), 
150はアスキーコードで D 000 H から？ f き込まれていますから，アドレスを HL レ 
ジスタにロー ドして CIRCLE のルーチンをコー/レします.また，ハ•ラメータとし 
て海き込まれたデータの終わ0には必ず 00 H を邦き込む必要があります. 

1820〜1910 PAINT のルーチンをコールするための機械詰ブログラムとハ•ラメータのデータ 

です . PAINT の場合も同搽にアスキーコードで格納されたデータのアドレスを 
HL レジスタにロー ドしてから PAINT のルーチンをコールしなければなりませ 
ん. 

1920-2020 PSET のルーチンをコー/レするための機械語ブログラムとハ•ラメータのデータで 

す. 

2030〜2140 SOUND のルーチンをコールするための機械語ブログラムとハ•ラメータのデータ 

です. 

2220〜2280 '' PASOPIA w を曲 fii に表示するために文字列 PRINT のルーチンをコールして 

います.表示するデータはアスキーコードで示され，終わりには 00 H をつけてお 
きます.これ t 開始アドレスを HL レジスタにロードしてから，文字例 PRINT 
のルーチンをコールします. 

2290〜2470 X を人力して SIN ( X )を出力するブログラムです. HL レジスタをインクリメン 

卜 （ 1つ増やす）しているのは，識別コードカ < HL レジスタの示すアドレスにある 
からです. 

2490〜2690整数のかけ算です. 68 F 8 H からは単精度変換のサブルーチンになっています. 

PUSH でスタックにレジスタを退避しているのは， CRT 出カルーチンに データ 
を送るために HL レジスタを使うからです. 
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2-2-2 RAM を 32 K 増やす（未使用 RAM の活用） 

ROMBASIC 起動時は RAM の半分にあたる32キロバイトが使われていません.この未使用 RAM 
(奥 RAM ) をデータ.エリアとして使用するブログラムを紹介します. 


080 "XXK 

010 RAMFILE ior T ■く rom > BASIC 

020 "XXX 
030 ' 

040 "K 

030 18ET M-SUB 
060 "X 

070 CLEAR^HDFFF 

080 RAMFILE-ftcHF783 h-SUB ADR 
090 RFWRITE-^HF783 i" ADR <NRITE> 

100 RFREAD <HF794 丨 ， ADR < READ) 

110 CELLNO -ftcHF780 i 7 ADR (CELL NO SET) 

120 BUFFER ■ も HF781 i" ADR (BUFFER START ADRESS) 

130 AOR-RAMFILE 
140 RESTORE 1710 
130 READ A% 

160 WHILE A^O-END- 

170 POKE ADR, リ ALCW+A 秦》 

180 ADR-ADR^ 1 
190 READ A 拿 
2ee HEND 
210 

220 ^ GET ADR FILE BUFFERN8 
230 

240 FI ELD ㈣ 0,1 AS A 瘳 

250 POKE BUFFER f PEEK<VARPTRCA«>♦1> 

260 POKE BUFFER^1 f PEEK<VARPTR<At)t2) 

270 "X 

280 SAMPLE 
290 I 

300 WIDTH 80iSCREEN liCOLOR 7 f 0iKEY OFFiCLS 
303 PRINTS PASOPIA RAM FILE S^ViPLE PROGRAM- 
310 FIELD ㈣ 0,128 AS A1 毒 , 128 AS A2% 

320 LSET Al^-STRINGt<120 # 0> 

330 LSET A2^-STRINGt< 128,0) 

340 PRINT_ 外ソ 7 ram 9 i/wf7i 

350 FOR 1-0 TO 127 " clear ramf il*. 

360 POKE CELLNO, I 

370 CALL RFWRITE 

380 NEXT I 
390 7 X 

400INPUT FOR READ/WRITE 
410 "K 
430 PRINT 

440 INPUT*READ OR NRITE < R / W>_|C 秦 

450 IF C 拿 ■■R_ OR THEN OOSUB 1490 1 GOTO 1446 

460 IF C“_W OR C 一 THEN 60SUB 1600 1 GOTO 1446 

470 IF Ct- B E - OR £：♦■■■_ THEN END 

480 GOTO 1446 

490 

300 READ SUB 
510 1 

328 INPUT •CELL NO ■jCELL 

530 IF CELL<0 OR CELLM27 THEN PRINT-1LLEC5AL - !RETURN 

340 POKE CELLNO,CELL 

550 CALL RFREAD 

3<S0 PRINT-RECORD NO ■ |CE しし 

570 PRINT Alt 

380 PRINT 

590 RETURN 

600 "X 

610 WRITE SUB 
620 "X 
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%2# T-BASIC の闷部，粟 i? 


1630 INPUT _CELL NO •|CELL 

1640 IF CELL<0 OR CE しし >127 THEN PRINT_I しし EGAL_iRETURN 
1650 INPUT •DATA!* \ 0 % 

1660 LSET Alt-Dt 
1670 POKE CELLNO f CELL 
1680 CALL RFWRITE 

1490 し SET A1^-STRING»< 128,0) 16 OTO 1540 
1700 RETURN 

1710 /XXXX M-SUB xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
1720 /WRITE SUB 

1730 DATA 3A,80,F7,2A t 81,F7,57,1E,00, 43 ， 0 E,FF,F3 f ED,B0,FB,C9 
1740 "READ SUB 

1730 DATA 3A,80 •F7,ED l 5B,81 l F7W7,2E,0e l 45 l 8E,FF l 3E,02,F3,D3 l 3C,ED l B0 •AF,D3 I 3C,F 
B,C9 

1760 DATA END 


このブログラムは， RRAM の 32 キロバイトを 256 バイトずつの 128 個のエリアに分割し， F780H 
からの機械語サブルーチンでバンク切換とブロック転送を行うものです. 

RAM に离き込むときには， F780HS 地に再き込むエリアを POKE して F783H をコールします. 

コールするとファイル八ッファ 0 に冉き込まれたメモりを F780H 褓地で指定したエリアにブロッ 

ク転送します. 

RAM から説み出したければ F780H 浴地でエリアの游リ•を指^して F794H をコールします.このと 
きには？ f き込むときと逆のブロック転送が行われます. 

ファ イ ルバッファ :? 0 を使用しているので, FIELD 命令で使用する文字数を設定することができ， 
BASIC ブログラムの処理速度を速めています. 

2-2-3 DISK - BASIC を切り離す方法 

BASIC のブログラムをメモリ内に残したまま DISK-BASIC を切り離す方法を紹介します.次の 
手順で操作して下さい. 


し 1ST 

10 REM DISK BASIC TO ROM BASIC SAMPL 
E 

28 PRINT -THIS IS SAMPLE PROGR^l - 
30 END 
Ok 

?PEEK<4cH27A9) 


72 

Ok 

?PEEK<&H276A) 

154 

Ok 

?PEEK<&H2A36) 

148 

Ok 

?PEEK<&h2A37) 

154 

Ok 


プ□クラム鉍成閗始のボインタを iS ベる 


変鈐功 t < の WW ボインタを这ベる 


ブ□クラムが格納されている埸研を成べる 0 


1) ブログラム領域開始ボインタの値を調べる. 

DISK 版では 2769 H に下位， 276 AH に上位のアドレスが格 
納されているのでここを PEEK で調べます. F 位，上位 
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の内容を調べたら紙にメモして下さい. 

2) 変数領域の開始アドレスを調べる.ボインタは 2736 H と27 
37 H にあ*)ます. 

3) ディスクユニットを OFF にしてリセットスイッチを押す. 

4) ROMBASIC のボインタに齊き込む. 


How many ^ i 1 1*< 0-15) ? 0 
Toshiba T-BASIC 1.1 

<c)1982 by Microsoft 
29600 Bytts 
Ok 

pok* «ch^857 f 72 

Ok フ〇クラム鳓域 Wifi ホノツ••書レ， 

poKt fichf838 f 134 
Ok 

pok* &h^b23 f 148 

Ok :* 間 W ボインタに■込 c 

pok* fch^b24 f 154 
Ok 

c1e*r — f 也のボインタ t 害申ら n る 

Ok 

LIST 

10 REM DISK BASIC TO ROM BASIC S^iPL 

E 一 i する 

20 PRINT -THIS IS SAMPLE PROGRWT 
30 END 
Ok 


以上の操作で，ブログラムを残したまま， ROMBASIC を立ち上げることができます. 

2-2-4 UNLIST • UNSAVE 

何かの都合でブログラムをメモリ中に残して席を離 n るときに，ブログラムをコピーされてし 
まうことがわします.ハ•リピアでは RAMPAC を使えば瞬時に SAVE できるため，何らかの対策を 
とりたいところです.そのために，実行はできるが SAVE はできず， LIST もとれないようにする 



次のブログラムでは，一番骹初の行番号を FFFFH に丼き変えて UNLIST にしています • UNSAVE 
はリンクボインタを羿き変えて BASIC インタブリタに，ブログラムが人っていない，と感違いさ 
せることによって実現しています. 


10 y 

20 "XXX UNLIST hi UNSAVE 
30 /XXX 

40 INPUT*Do you us# 4 1oopy-di*k <Y/N>■|A 參 

50 IF A#-*Y- OR A^-_y_ THEN TXTTAB-icH2769 ELSE TXTTAB-4cHF8S7 

66 PRINT a P*^«w 巍 rdi_ 

70 PASS • 画 INPUT ， <3> 

80 LOW-PEEK(TXTTAB) iHIGH-PEEK<TXTTAB^ 1) 

90 ADR- し 0W+HIGHX256+2 

95 / - PASSl^RD CHECK - 

100 IF PASS ♦- THEN 160 
lie IF PASS ♦- -BBB* THEN 240 

120 IF PASS^O»UNL B THEN PRINT CHR»< 7> | ■ P*s«w*r d チ ？ T ウ ！！！ i> iEND 
125 • - UNLIST RECOVER - 


SI 
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130 POKE ADR f icHA 
140 POKE ADR+1,0 
150 PRINT*r»cov»r ok!■ iEND 

160 / - UNLIST - 

170 POKE ADR^HFFiPOKE ADR+1,&HFF 
180 PRINT-unlist ok!• 

190 END 

280 / - UNSAFE be UNLIST - 

210 7 1 i you wan t r«cov«r th»n you must typ 譬 following command. 

220 7 - > 7 POKE <nl) f <n2) iPOKE (n3 f n4>[RETURN) y 

230 / 

240 Al»PEEK<ADR-2) 

250 A2-PEEK<ADR-1> iPRINT ADR-2,A 1 f ADR-1 f A2 

253 y 1 A n2 ^n3 ^n4 

260 POKE ADR-2,0 

270 POKE ADR-1,0 

280 PRINT-UNSAVE OK!■ 

290 END 


このブログラムは次のように操作します. 

まず，目的のブログラムの後ろに， h のブログラムを打ち込んで， RUN 60000として下さい. 

• UNLIST 化するとき 

DISK を使っているかと閒いてくるので，使っていれば Y と答え，使っていないときは N と答 
えて下さい.統いてパスワードを閒かれますので，好きな文字列をタイブして下さい.ハ•ス 
ワードのエコー バッ ク（タイプした文字が CRT に表示されること）はないので注意して下さい. 
パスワードがあっていれば , unlist ok ! と表示されます, 

• UNLIST を解除したいとき 

GOTO 60000とし，前に人力したハ•スワードを人乃して下さい. 

• UNSAVE 化するときハ•スワードを人ハします.ただし， UNSAVE 化したときは SAVE で 
きない代わりに LIST もとれず， RUN もしません.実行時に数字が4つの CRT に出力される 
ので，これを記録しておいて下さい. 

• UNSAVE を解除するとき前に出力された数字を順に nl 〜 n 4 として，ダイレクトで次の命令 
を実行して下さい. 


POKE nl , n 2 : POKE n 3， n 4 


これで m 活します. 

今冋用いた方法を説明しましょう. UNLIST 化するために最初の行番号が格納されるアドレス 
2バイトに FFH を者き込んでいます.こうすると，インタブリタは勝手に以後にブログラムはな 
いものと解釈して LIST しなくなるのです.ただし，このままでは SAVE は可能です.なぜなら SAVE 
するときにはブログラム領域開始のボインタの示すアドレスから変数領域開始のポインタの示す 
アドレフ、までを SAVE するためです.さらに， RENUM をかけると， GOTO などの飛び先は直さ 
れないのでエラーが出ますが，プログラムは回 m します.（ただし飛び先は狂っています）,. 

UNSAVE はリンクボインタを-者き変えてインタブり夕にプログラムが人っていないものと解釈 
させることにより実現していますので実行できません. 





2-2-5 プログラムの APPEND 


フロッピイディスク使用時や RAMPAC 2使用時は複数のプログラムの結合命令として MERGE 
を使うことができるのですが，カセットベースで使用しているときは MERGE を使うことができず， 
汎用性のあるサブルーチンを作ってもキーボードから打ち込まなければなりません.しかし，力 
セットでの MERGE はポインタの苒き換えだけで実現することができるのです. 

BASIC のプログラムに関係するボインタをいじるので，手勅で行う以外に方法はありませんが， 
アペンド（ブログラムの結合）することができます. 

順を追って方法を説明しましょう. 

1) まず前に$ くべきブログラムを人力して下さい. 

2) ブログラム領域開始ボインタ （ F 857 H 〜 F 858 H ) の値を調べ記録して下さい. 

3) 変数領域開始ボインタのま•を調べ，その値によって示されるアドレスから2を引いた値を， 
ブログラム領域開始ボインタに游き込んで下さい. 

4) 後ろに結合されるブログラムを CLOAD して下さい.このブログラムの開始行番号は，前のブ 
ログラムの終わりの行番号より大きくなるようにして下さい. 

5>ブログラム領域開始ボインタに的:初の侦を邦き込めばでき上りです. 

次に例を示します. 


How rriari y ti Ie»<u-15> > d 
Tosh i T-B^.SIC リ *r 1.1 
(c> 1982 by Microio+t 
296U0 Bytes free 
Ok 

10 / 簧黉备 

20 'Append samp Ir 1 
30 y 

40 PRINT M This is program i- 
50 END 
Ok 

?PEEK(&hF857) f PEEK^hF356> 
89 130 

Ok 


ブ□グラム a 域 fB ! 姑のボインタ¢1*ベる。 


?PEEK<&hFB23> f PEEK^hFB24> 
172 138 

Ok 

POKE &HF857, 170 :POKE &HF858 
Ok 

し I ST 
Ok 


夕を W ベる 


,13 C 1 —ブ〇ブラム 》 域凳始ポインタを害申える 


C し OAD 

Found:s4m2 

Ok 

LIST 

600 /备铸餐 _ 

010 7 #*# Append tamp 1• 2 
020 /*** 

030 PRINT_Thi* 丨》 program 2 m 
040 END _ 

Ok 

POKE &HF 857,8 9:POKE &HF 858,130 
Ok 


後につけるブ□グラムを□ー ドする 

後につくブログラムの LIST 

ブログラム锗域間始ボインタを元の»にする 
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W2# T-BASC の内 


LIST 
10 7 

20 y Append sampl» 1 

30 / **# —ブ G クラムが aig した 

40 PRINT_Thi* i % program 1_ 

50 END 

1000 / 备备锯 

1010 7 *** Append s^mple 2 
1020 

1030 PRINT-This ift program 2 m 
1040 END - 

Ok 


では，実際にメモリ上ではどのようなことが起こるのでしょうか. 

アベンドする前のブログラム1の終わりの部分は次のようになっています. 


轉 D 8280,82 AF 

8280 8B 82 1E 00 3A 8F ES 2A 2A 2A 80 A4 82 28 00 91 •••• I•• 僑 ** •••(•• 

8290 22 54 68 69 73 20 69 73 28 78 72 6F 67 72 61 60 "Thi• I % program 

82A0 20 3122 00 AA 82 32 00 81100 00 00」 IE E3 84 42 ド … 2.B 

T 

wp ブログラムの I ? りに UOOH が 3 つ亦んでいる。 

この？つめの鲁拽からテーブを » 込 1 せる。 


肢後の行のリンクボインタが示すアドレスからアペンドしたいブログラムを統み込ませればよ 
いのです. 


㈣08280 ,82AF 

8280 8B 82 1E 00 3A 8F E5 2A 2A 2A 00 A4 82 28 00 91 . 

8290 22 54 68 69 73 20 69 73 20 70 72 6F 67 72 61 60 -This is program 

82A0 20 3122 00 AA 82 32 00 81 00 B5 82 E8 03 3A 8F 「…2 . し 

HP 


アペンド後は，先はどのリンクボインタの示すアドレスにブログラム2のリンクボインタが格 
納されます. 


2-2-6 メモリを ALL-RAM に 


ROMBASIC 使用時は，64キロバイトあるメモリのうち半分にあたる32キロバイトの RAM は使 
われていません.次のブログラムを実行すると BASIC - ROM の内容が RAM にコビーされます. 


ie ADR««<HDeee 

20 FOR 1-0 TO 19 
30 READ At 

40 POKE ADR ♦ しリ AL く W+A 秦〉 
30 NEXT 
60 CALL ADR 
70 END 


100 DATA 2 し 00,80 

lie data n 9 ee f ee 

120 DATA 01 f FF f 7F 
130 DATA F3 


• し D HL f 0000H 
• LD DE,0000H 
7 し D BC f 7FFFH 
， DI 


146 DATA EO 9 B0 


• LDIR 


150 DATA FB 


/ El 


S7 





U0 DATA 6E.3C 
170 DATA 3E,02 


180 DATA 
190 DATA 


ED, 7? 
C9 


i" LD C,3CH 
I' LD A,02H 
I 7 OUT <C),A 
〆 RET 


このプログラムは， ROM の内容を同じアドレスの RAM に対しブロック fe 送で*き込んだ後， 
バンク切換を行わせています. RAM が切り離されているときでも，書き込むことはできるためこ 
のようなことが可能です. 

2-2-7 プログラムの回復法 


NEW 命令を投人したりリセットをかけたしたときにはブログラムは消えますが,実はメモリ 
上では書き込まれたすべてのメモリがクリアされるわけではなく，一部のポインタのみが害:き換 
られているのに過ぎません.邦き換えられたボインタを； e に戻せばブログラムを回復することが 
できます.この手順を示しましょう. 

•変数領域開始のボインタ （ ROM 版 FB 23 H ) を POKE で冉き換え，変数を使用してむメモリを 
破壞されないようにする.离き換えたら CLEAR 命令を実行する. 

• テキスト開始ボインタを調べる.（テキスト開始のポインタは ROM 版では F 857 H にありま 
す). 

.ダイレクトでテキスト•番地からメモリの内容をダンプして，敁初のりンクボインタを兒つ 
け#き換える，また，00が3■校いているところを廷つけ，その2 SH の00のアドレスを 
変数領域開始のボインタに并き込む. 

• CLEAR を実行する. 

以上の手順でブログラムが回 m するのですが，とてもチ間がかかります.次の機械語サブルー 
チンを使えば比較的簡単にブログラムを ft (活することができます.（このブログラムは ROM 版 Ver 
1.1 用です）. 


F000 2A 37 F8 
F003 36 01 
F003 CD B0 IF 
F000 CD F2IF 
F00B 23 
F00C 23 
F08D 22 23 FB 
F010 22 2S FB 
F013 C9 


LD 

LD 


CALL 

CALL 


HL f <F837H> 
<HL> 9 01H 
1FB0H 
1FF2H 


INC HL 
INC HL 


LD <FB23H> 9 HL 
LD <FB23H> f HL 
RET 


I LOAD TEXT START 
I 1 ノンク 系 ♦インタ SET 
I 1 ノンク摩•イン， SET CALL 
I アドレ7 -> ，•霧ウ 


I VAL POIhfTER SET 
I ARRAY POINTER SET 


このブログラムを使用するときは必ず次のように USR でコールして下さい. 

DFF USR 1 = & HF 000 : USRl ( O ) 

CALL では変数をオペランドとしているため，変数が宣言されることによりプログラムエリアが 
破壊されてしまうので使わないで下さい. 

なお，機械語プログラム中で使用している内部サブ ルー チンに っぃ ては， APPENDIX をご絮下 
さい. 
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第 3 章 

グラフイツク 


3-1 SCREENS •と V-RAM 
3-2 アトリビュート*キャラクタ 
3-3 GET ® と PUT ® 

3-4 LINE • PSET • PAINT 

3-5 グラフィックテクニック 





第 3 章グラフィック 


3-1 SCREEN 命令と V-RAM 


バソピアは16キロバイトの V - RAM を持ち，1章でも述べたように I / O 経由で使用し，8255によ 
り制御しています. 

キャラクタは 247 M •ありますが， T - BASIC では 19 H 以下のコードの文字を扱うことができないた 
め，突 PS に使えるのは 216M 頮です.キャラクタは8 x 8ドットで炎され， CG (キャラクタ•ジェ 
ネレータ）から供給されます. 

表示するスクリーンモードは 3 WW で，テキストモード，グラフィックモード，ファイングラ 
フイックモードとなっています. 

これらのモードの切換えは，8255のボートをアクセスすることによって行います. 

次ページ，図 3-1-1 にコントロール内容を示します. 

各モードを比較してみましょう. 

• SCREENO (テキストモード） 

テキストモードでは，すべてのディスブレィコードをキャラクタ.ジェネレータで文字パター 
ンに変換します.この場合， V - RAM には次のように害き込まれます. 



8 

7 

6 5 4 3 

2 

1 

0 

テキスト 

RVS 

反転 

キャラクタ.コード 

_1_1_ L — ^ L _1_ 1_1_ 








カラー•アトリビュート 
キャラクター 

0 

1 

1 

1111 

1 1 肅 

GR 

1 RE , 

BL 



図3— 

1 一2 デイスブレイコード.モー 

ド0 




このとき，ビット8が0でビット3〜7が1のときには々ラーアトリビュート•キャラクタで 
あると判断され，その行の後にあるキャラクタがビット〇〜2まで示される色に着色されます. 
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# ; 

ボー ト 

動作 モー ド及び 
ボート名 

端子 

アクティブ 

コン ト ロール 内容 


ファイングラフィックモードの設定 

グラフィツ7モードの設定 

80桁表示モードの設定 （ CRT のみ） 



背欺色の緑信号を出力します 
#欺色の赤信号を出力します 
背絷色の#倍衿を出力します 


8255 


PB7 

PB 6 


人力 


V - SYNC 信号を 
表示装 S の M 別人乃 (CRT 


•Cl) 


0 9 H 



/•- RAM の書き込みデータ（2 1 )を出力しま 

(Read = '' l // , 

Write = "0") 


: -KAM アドレスの 2，，（ PC 5) 〜 2 S ( PC 0) 
h 力します. 


(PA 7 



V - KAM の杏き 
PB 7 


- RAM の挽み出 
PC 7 =i 


0表示モード/サイズ制御 

8255で設定する3神の表示モード及び C R 丁の36/80行表示の制御を行う. 

〇背景色制御 

ソフト.ウヱアから指定された ff 摈色を8255を介して設定する. 

计读色の設定は表示モードの設定と同一の出カポートであるので，メイン. 
記億している. 


モリ ( RAM ) 内に常に 
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図 3— 1一18255 のコント ロール 内容 











si 3 ^ 


ク 


またビット8が1であればその1文字が文字色と背辱:色を反転して表示されます.（写 W 3- 1> 
次のブログラムはキャラクタの反転表示の例です. 


10 ，xxx 

20 REVERSE 

30 IXX 

100 WIDTH 36iSCREEN 2iC し S 

110 OUT 8,16 "FOR TEXT MODE SET 

120 LOCATE 0 t 0iPRINT-XX REVERSE DISPLAY S^IPLE XX* - 
130 DIM BIT<7) 

140 FOR 1-0 TO 7 

150 BIT<I)-2 A I 

160 NEXT 

170 X-0IY-10 

166 FOR I-l TO 255 

190 FOR J-7 TO 0 STEP -1 

200 IF I AND BIT<J> THEN PSET<XK8^7-J t YX8) 

210 NEXT 
220 X-X^l 

230 IF X-36 THEN X-0iY-Y^ i 
240 NEXT I 



写真 3 - ! 
反転の表示 


110行の OUT 命令はテキストモードの指定を行っています.100行の SCREEN 命令は， BASIC で 
ディスブレイコードを出力させるために必要です. 

• SCREEN 1 (グラフィックモード） 

このモードでは，各ドットごとに8色指定できます.このとき，ディスプレイコードは次ペー 
ジ図 3-1-3 のようになります. 

このモードでは，ビット8はテキストとグラフィックの区別に使われています.このため，反 
転表示はできません. 

グラフィックデータは • ビット6〜4が左側のドット，ビット2〜〇が右側のドットの色を指 
定しています•ドット表示は PSET 等の命令で行わ u ていますが，片方のみ色を指定したときには， 
もう片方は背 t 色が害き込まれます.このとき，全体の背景色が変っても，以前のドットの背贺 
色を新しい背景色に換えるような処みはなされません. 

色指定のアトリビュート•キャラクタはテキストデータに対してのみ作用します • 


9：i 





■■ 


- BASIC で 


てしまうた 










170 NEXT 
180 PRINT 
190 FOR い 
200 X0- 

210 LINI 
220 FOR J-12 
230 LOCATE 

240 NEX 


•は，テキストや SCREEN 2 のファイン•グラフィックの色指定は基本的には横の ir 
ごと）になっています.これは，横；/向36字もしくは80字の両面の左側にカラー • 
卜 • キャラクタが害き込まれているからです. 

7) 色を使いたいときは，有色したいキャラクタの前にアトリビュート•キャラクタ 
とによって可能です. 

1つのキャラクタを複数色で 

ート•キャラクタをうまく使うと，1つのキャラクタを m 数色で表示することがで 
リビュート•キャラクタを冉き込んだときに，必要のない部分を LINE や PSET で消 
よいのです. 

ラムでは，縦方向1ドット単位で色を？ f き換えています.行番号190〜2,50で不要な 

• LINE 命令で消し • 


LINE< 

210 1 
228 S 
230 

240 FOR 

250 FOR J-l TO 
260 LOCATE J 

270 NE： 

280 NEXT 
290 FOR 
300 し II 
: XT 
DCAT 






-2-2 アトリビュート•キャラクタで高速グラフィックを使う 

CREEN 2 では，アトリビュート•キャラクタを使うことによって，図形などをえがきなおす 

:なく，高速に色を変えることができます.画面に1度描いておき，その前に S いたアトリビ 

ート.キャラクタを害き換えることによって，簡単なアニメーションのようなものを作ってみ 
た. 


10 

20 ’XX col or d«mo for PA70 10 
30 (T-BASIC) 

40 "K 

]0 /K START 
60 ^ 

70 CLEARi RANDOMIZE TIhE/4 

80 SCREEN 2iWIDTH 801 OUT 8 f 160 iCOLOR 0 f 0iCLS 
90 DEFIhfT A-Z 
)DIM CO し ， <8> 

FOR 1-0 TO 7 

C0L^<I)-CHR^<248^I> 

NEXT I 
COLt<0>-» • 

OOSUB 1130 
00SU8 830 
OOSUB 1230 
OOSUB 1020 
"K 

， X DEMO START 


230 

240 

2 se 

260 

270 

280 

290 

300 

310 

320 

330 

340 

330 

360 

370 

380 

390 

400 

4ie 

420 

430 

440 

450 

460 

470 

480 

490 

see 

310 
320 
30 
40 
50 
60 
70 

8e 

99 


FOR LOOP-l TO10 

CHANGE COLOR < ALL CIRCLE > 

COLOR 0 

FOR COL-0 TO 7 
FOR CN-1 TO10 
OOSUB 770 
NEXT CN 
NEXT CO し 
COLOR 7 f 0 

COL-0 i FOR TO10 t OOSUB 770 iNEXT 

，CHAGE COLOR <2 CIRCLE) 

FOR COL0-1 TO 7 
FOR CN0-1 TO16 

COL-<COL0-1) MOD 8 
CN-<CN048) MOD 18^1lOOSUB 770 
COL-COL0 

CN-CN0IGOSUB 770 
COL»<COL0-1) MOD 8 
CN-<CN0M> MOD 10^ 1 iGOSUB 770 
CO し 》 CO し 0 

CN-<CN0t5) MOD 10 令 1 iGOSUB 770 
NEXT CN0 
NEXT COL0 
OOSUB 1020 

• CHANGE CO し OR (1 CIRC し E > 

FOR K-0 TO 7 

FOR L_0 TO10 

CN0-(K^L) MOD 10+1 
COL-(K^L) MOD 7+1 
CN-CN0 
OOSUB 770 

CN-<CN0>?) MOD 1041 
COL—0 
OOSUB 770 
NEXT L 
NEXT K 

• ALL CIRCLE 
FOR CO し TO 7 
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600 

616 

620 

630 

640 

650 

669 

670 
680 
690 
700 
710 
720 
730 
748 


FOR 


TO10 
770 


CN- 
GOSU 
NEXT CN 
NEXT COL 

7 CHANGE BORDER CO し OR 
FOR COL-1 TO 7 

COLOR RNDX6^1iF0R Y-0 TO 
COLOR 7 f <COL^i> MOD 8 
"FOR 1-1 TO 1000INEXT 
FOR CN-i TO10 
008UB 770 
NEXT CN 

for Y-i to ieeeiNExr 
NEXT COL 
COLOR ,0 
730 NEXT LOOP 
760 END 
770 

780 1 SET COLOR FOR CIRCLE 
790 ^ 

800 / INPUT "•CN AS CIRCLE NUMBER 
810 • CO し AS COLOR 

820 LOCATE XPOS(CN) f YP08<CN) 

830 PRINT CHARDATA#<CN f COL)| 

846 RETURN 
ese 1 

866 "X ORfiM CIRCLE 
070 1 

880 PI!-3.1415? 

FOR I!«0 TO PI!*2 STEP PI!/ 5 
X!-COS<I!>xiee«32e 
Y!-SIN<I!>xse^iee 
r!> f 20 f 1 


LOCATE 0 # YiNEXT 


890 
?ee 
910 
920 
930 
940 
950 
960 
97գ 
980 NEXT 
990 RETURN 
000 / 


CIRCLECX 
NEXT 

FOR !!-0 TO PI !K2 STEP PI 
X!-COS<I!>X109432e 

y!-sin<i Dxse^iee 

PA!NT<X!,Y!),1,1 


die 

020 

e3e 

040 

ese 

06e 

e7e 

080 

090 


X 

X 

K 


SCREEN CLEAR 


COLOR 0 
FOR 1-3 TO 24 
LOCATE e 9 I 
NEXT I 

FOR 卜 1 TO10 

00 LOCATE XP03<I) f YP08<I> 

10 PRINT C^ROATAt<I 9 0) 

20 NEXT I 
30 COLOR 7 
40 RETURN 
30 ^ 

60 ^ WRITE /PASOPIA/ 

70 "K 

80 COLOR 7,0 
190 LOCATE 10,01 PRINT 
200 LOCATE 10 f JiPRINT 
210 LOCATE le^iPRINT 
220 LOCATE 10,31 PRIhfT 
230 LOCATE 10,41 PRIhfT 
240 RETURN 
250 1 

260 "X POSITION FOR COLOR C_R 
270 ^ 

280 DIM XPOS<10) f YPOS<10) f CHARDATA^<10.7) 

290 RESTORE 1410 

300 FOR LOOP 1，1 TO10 

310 READ XPOS ( し OOPl> f YPOS<LOOPi> 9 N1 

320 FOR L00P2-1 TO N1 


_■ • 

I -/ _\ <_\ / \ I \ I _、 

I / VJ \ I II ― / I 

I N_ へ \_ / \_ / I I 


FOR CIRCLE NUMBER 


FOR DAT 州 
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1330 READ M2% 

1340 FOR LOOP3-0 TO 7 • FOR CO し OR C^R 

1350 IF W2 ♦- -X- THEN CHARDATA ♦く LOOP 1,L00P3>■CHARDATA ♦くし OOP 1,L00P3>♦ COLtiL 

00P3)iGOTO 1370 

1360 CHAROATA 秦 （LOOP 1,LOOPS〉-CHARDATA 秦 （LOOP 1,LOOPS) ♦CHR^<UA し < ♦WM〉> 

1370 NEXT L00P3 

1380 NEXT L00P2 
1390 NEXT LOOP1 
1406 RETURN 

1410 DATA FOR CO し OR CHAR. 

1420 / XPOS-YPOS-DAT^-DATA - 


430 

DATA 

40 

9 

5, 

7 、 

X 

IF 

440 

DATA 

47 

9 

7 f 

11 

X 

IF 

450 

DATA 

4? 

1 

11, 


X 

IF 

460 

DATA 

46 

9 


9 

K 

IF 

470 

DATA 

40 

f 

17 f 

7 

X 

IF 

480 

DATA 

32 

9 

17 f 

7 

X 

IF 

490 

DATA 

26 

9 

14. 

10 

X 

IF 

see 

DATA 

24 

f 

"t 

7 

X 

IF 

sie 

DATA 

6 

9 

7, 

10 

X 

IF 

S2e 

DATA 

32 

9 


7 

X 

IF 


F 

D 

D 

D 

D 

D 

D 

D 

D 


X 

XflF f X 

X 

X 

* ，び 

X 

X•1F 9 lD f X 
X 


このブログラムでは，背景色と同じ色で円を描き，その前のアトリビュート•キャラクタを g 
き換えるだけで色を変化させ，まるで円が動くアニメ（不連校ですが)のように見せています.（力 
ラーページ②参照） 

各サブルーチンは，次のようなことを実行しています. 

770行〜 円の前のアトリビュート.キャラクタを害き換える 

850行〜 円を描き， PAINT する 

1030行〜 各行の基本色を背景色と同じにする （ LOCATE 命令を実行すると，左端に実行 

時の色のアトリビュート•キャラクタが宵き込まれる），さらに，円の直前に 
背景色と同じ色を表すアトリビュート • キャラクタを再き込む 
1250行〜 DATA 文より，アトリビュート•キャラクタを冉き込む場所と，カーソル移 

動コードを読み，害き換えるための文字変数 ( CHARDATA $ (円 N 0 , 色））を 
作成する. 

1070行で LOCATE だけで行の色を変化させていますが， LOCATE を実行したときに，左端の桁 
の左側にその直前の COLOR で宣言された色コードを害き込むために色が変化するのです. 

3-3 GET@ と PUT @ 

3-3-1 GET ® のデータ形式 

T - DISKBASIC では，画面のグラ フィック を配列に読みとる GET ◎と配列を画面に描く PUT ◎を 
使うことができます. 

GET ◎のために必要な配列のサイズは SCREEN 1 とし SCREEN 2 で異なり，次のようになってい 
ます. 

SCREEN1 4 + n/2 バイト 

SCREEN2 4 + n/8 バイト 

98 


FXFFFFFFFF 

1 9 —A 1 S3 1 IA 41 it I* 

• D 

DDODDODODD 
















GET ◎で読み込まれた画面情報は，次の形式で配列変数に窖き込まれます. 


决38 グラフィック 


下位 

上位 

下位 上位 、 

X 軸1ィズ 

Dx 本ビフト/ビクセル 

1 

y 軸サイズ 

Dy 

一 - -- 二 

1 

1 1 1 1 

ドット情報 


ノ 

1 

2ハ’ィト 

2バイト 



Dx — 



( xi , 

y ») 



1 ' 
Dy 

1 ' 





1 

( x lf 

yt ) 



図3—3—〗画面情報の形式 

座標 （ x, ， y,) を基点として横方向（ X 軸）1行のドット悄報を 8 ビットに区切って邦き込み，統ぃ 
て次の行のドット情報を害き込むことを找り返して （ Dx, Py) の画面情報を格納します. 

図3 — 3 — 2 格納のされ方 


SCREEN 1 


7 6 5 4 

3 2 10 

左 

右 

色コード 

色コード 


1バイト 


1バイトで2ドットの色コードを表 
わす. Dx が奇数の場合は描1列の W 
後のドットを表わすパイトの下位4 
ビットは〇になる. 


Dx 


Dy 






■ 

% 






9a 






Vj 





■ 


ES 



■ 


■ 

■ 

n 





K-y 


左 

色コード 

0 

^ > 


<ィ 


ベイ 
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このうち， X 铀サイズは， X 铀方向のドット数に， 1 ドットのドット w 成数をかけた値が格納 
されています. 

Dxx ビット/ビクセル 

Dx …… x 铀方向のドット数 
ビット/ピクセノレ •••••• SCREEN1 : 4 

SCREEN2 :1 

y 铀サイズは， y 軸方向のドット数が格納されます. 

ドット情報は，バイトごとに， SCREEN 1 では各ドットの色コードが， SCREEN 2 ではドットの 
ON / OFF が格納されています. 

3-3-2 ROM-BASIC で GET ®， PUT ® を使う 

前出の GET @, PUT @ はグラフィックを使用する時には非常に便利ですが， ROM - BASIC では 
使用できません.そこで ROM 版でも使用できる高速 GET @ . PUT ◎の機械語サブルーチンを紹 
介します.（カラーページ③参照） 


l(X) 

















% 3 章グラフィック 


ee y xxx 
10 y x»x 
20 
30 

40 7 XXXXXXXXX 


High Sp«*d GET9/PUT0 < T-BASIC > 
M-WORD SUB F000H TO F14EH 


P 毳 r 暴 m 巍 t 譬 r 毳 ddr 譬 fti 


50 1 
60 1 
70 "X 
80 "X 
90 "K 
200 1 
210 I 
220 1 
230 

240 CLEAR f 6cHEFFF 
230 WIDTH 80 
260 SCREEN liCLS 
270 008UB 930 
280 OOSUB 900 
320 1 


address 

F004H 

F005H 

F006H 

F008H 

F009H 

F00AH 

F00BH 


m#nn 

•/PUT BuiiT 


羲 ddr 蕾鲁翥 


LOW 
HIGH ) 


TUT i/fX < 0 9 
GET/PUT ノ X !Tt ■ウ 


GET 


1… PUT > 
ff7 トノ X 9 • ヒ ■ ウ f 


VfX 7*.) 


X 系ウ ;] ウ t シウ 


X 

X 

X 

X 

X 

X 

X 


338 

1 

SET PAfWIETER 

AND 

GET 



340 








330 

POKE 

kHF004 

kH0 

• / 

SET 

BUFFER ADDRESS 

LOM 

360 

POKE 

liHFtiS, 

&HF2 

i / 

SET 

BUFFER ADDRESS 

HIGH 

370 

POKE 

kHFee6 

e 

1 / 

SET 

FUNCTION FOR OET0 

380 

POKE 

&HF008 

3 

氤 / 

SET 

X START 


390 

POKE 

ftcHFee? 

2 

重 / 

SET 

Y START 


400 

POKE 

&HF00A 

23 

省/ 

SET X WIDTH 


410 

POKE 

&HF00B 

6 

• / 

SET Y WIDTH 



420 

430 

448 

490 

460 

470 

480 

490 

300 

310 

320 

330 

340 

330 

960 

570 

960 

390 

600 

610 

620 


OETPUT-ftcHF055 
CALL GETPUT 
"X 

PUT0 START 

POKE ^HF006 t 1 
FOR 1-1 TO 3 
POKE &HF008,1X3+10 
CALL GETPUT 
NEXT I 
END 
"X 

"X SET M-WORD DATA 

SAD-&HF000 
READ At 

IF A ♦- -END- THEN RETURN 
POKE SAD, リ A し <*^H 、 A 參〉 
SAD-SAD41 
GOTO 570 
7 « 


• SET FUNCTION FOR PUT0 
POKE tHF009,IX3+3|/ SET 


START 


630 1 OET/PUT M-WORD SUBROUTINE DATA 
640 /» 

430 DATA 00,00,60,00,66 f ee 9 00 9 00,00,00,06,00,00,09,08,00 
660 DATA 00 f C3 f 3E f 0C f D3 f 10,DB f 11 f 67 f 3E > 0D f O3 > 10 f DB f 1l f 6F 
470 DATA 0 1.0 1 ， 00,09,C1,C9 f 7C ， E6,07,67•C9 l e0 ， 00 l 00 ， ee,00 
680 DATA 00，00 ^5,21,00,80,40,06,00^0,80^,42^0,09,30 
490 DATA 18 f F7 l E9 9 Cl 9 El 9 C9 9 DB f e9 9 DB 9 e? 9 Ed 9 4e 9 2e l FA 9 DB f e9 
700 DATA E6 f 40 l 20 f FA f C? f 3A f 0B f F0 f 32 f 0F f F0 ,£0,50,04^0,00 
710 DATA 1l f F0 f 06,51 f 3A f 09^6,00,32 ^0,09^ f 08 f F0 > 4F l 06 
720 DATA 00,09,00,24^0,22,00 f F0 f 22,02 f F0 f 3A f 0A f F0 f 32 f 0E 
730 DATA F0 l 3A > 0C f F0 l 32 l 10 f F0 f 3A f 10 ^e^E, 00 ^,99^0,30 
748 DATA 32 f 16 9 F6 9 13 9 13 9 13 f 13 f 16 9 EE 9 3E 9 64 9 32 9 eD 9 Fd 9 2A 9 02 
750 DATA Fe ， 3A,0<S,F0,FE，8 1,CA,32,Fl,F3,CD,46,F0,7D ， D3,00 
760 DATA 7C,Ft40,D3,0A l CD l 46,F0,DB,09 l 47,DB,02,FB,CB,78 
770 DATA 20,0 1 f AF f 12 f 13,9 1,00,10,09^,00^0,30,32,00^0 
780 DATA 20 f CF > 3A f 0E l F0 f 3D f 32 f 0E i F0 ,CA f E8 ^0^,02^0,23 
790 DATA 00,26^0,22,92^0,18 f ?F f 3A f eC.FB^E,00 f CA f lD f Fl 
000 DATA 32 f 0E f F0 f 2A f 02 f F0 f 23 f CD f 26 f F0 f 22 l 02 f F0 f 3E f e4 f 32 
810 DATA 0D,F0 ， 3E f 00'0,38^1，e 1,00, ie f e?,3A ,3 d,32 

820 DATA 0D f F0 f 20 f EE f 3A f 0E f F0 f 3D l 32 i 0E f F0 f 20 f D6 f 3A f 0F f F0 
830 DATA 3D f 32,0F ^0,08^!00 ^0,0 1,31,00,09,00,26^0^3 
840 DATA 73,F0,1A,CD,38,F1,18,8C ， FS ， F3,CD,44,F0,F1 ， D3，01 
830 DATA 7D ,03,00,70^6, 80,03 f 0A f CD f 46 f F0 f D3 f 0A f FB f C9 f END 
900 "X 
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910 ^ DRAW TEST DATA 
920 'X 

930 RESTORE 1006 

940 READ XliIF X1<0 THEN 970 

9S0 READ Yl f X2 f Y2 f C 

9 る 0 LINE<Xl f YI)-(X2 f Y2) f CiQOTO 940 

970 READ XliIF X1<0 THEN RETURN 

980 READ Yl f C 

990 PSET<X1,Y1> f CiGOTO 970 

ieee ^ 

1010 "K TEST DATA 

1020 1 

1030 DATA 8 l 8 l 49 i e 9 7 i 8 i 18 9 49 9 18 9 7 9 8 9 8 9 e 9 I6 f 7 9 4? f 8 9 49 9 18 t 7 

1 州 DATA 10 f 10,10,16,l f 12,10 f 14,12,1,14,12 f 12,14,1,17,18,14 f 16,1 

1030 DATA 17 f 10,20,U 9 1 9 24 9 10 9 22 9 12 9 1 9 22 9 12 f 29 9 1S 9 l f 24 9 16 9 22 9 16 9 1 

1060 DATA 29 f 10,26, 13 f 1,26, 13, 29,46, l f 29 f 16,32 f 13 f l f 32 f 13,29, 10 f l 

1070 DATA 29 f 11 f 27 f 13,4,27,13 f 2? f 15,4,29, 13,31 f 13 f 4 f 31 f 13 t 29 # U f 4 

1080 DATA 33,10,33, 14•1,35,10•37, 12,1,37, 12,33•14•1 1 39•10•39•14•1 

1090 DATA 44 f 10，41 f I6 f 1,44 f 10 ， 47 f 16,l f -l 

1100 DATA 11 9 10,1 9 11 9 14 f l f 2S f ie 9 1 9 29 9 12,2 

1110 DATA 28 f I3 f 2 9 29 f 14 f 2 9 30 9 13 9 2 9 34 f 10 9 1 

1120 DATA 34 f 14 f l f -l 


この ブロ グラムは， DISKBASIC の GET@.PUT ◎よ 0 商速ですが， PUT ◎は常に PSET のモ 
ードで実行されます. 

機械語サブルーチンは，次のようにパラメータを設定してから CALL します. 

1) GET なら 0, PUT なら 1 を F006H に POKE する. 

2) GET または PUT のバッファのアドレスを F004, F005 に苒き込む. 

3) X 座標の左側の座樣（文字座標). F008H に， Y 座標の上側を F009H に POKE する. 

4) X 方向の文字数を F00AH に， Y 方向の文字数を F00BH に POKE する. 

5) USR か CALL で機械語サブルーチンを呼ぶ. 


3-4 LINE • PSET • PAINT 


T-BASIC では，グラフ ィッ クの解 f 象度は SCREEN1 で 160X100(80 文字)， SCREEN2 で 640X200 
になります.グラフィックの関係でよく使われる命令としては， LINE, PSET, PAINT があり 
ます.これらの命令には相対座樣を使うことができますが，初期に発行されたマニュアルには辨 
かれていません.相対座標を使うときは次のように，座標の前に STEP をつけます. 


例） PSET STEP(10 f 10) 


次に相対座標を使ったサンブル•ブログラムを示します. 


00 / XXX 

10 / XXX LINE SAMPLE 
20 " XXX 

30 SCREEN 2 1WIDTH 86iCOLOR 7 t 0iCLS 

40 KEY OFF 

39 PI-ATN< 1>K4 

60 PSETC 320,0) 9 0 

70 FOR 1-45 TO e STEP -5 
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5 ft 3 章グラフィック 


186 FOR TH-0 TO PI«2 STEP PI/20 

190 LINE -8TEP<C0S<TH>KI t SIN く TH>X10> 

200 NEXT 

216 NEXT 

226 END 


次に，簡易グラフの作成ブログラムを紹介します.このブログラムの使用法は次のとおりです. 

1) RUN して，グラフの題名を入力する. 


2) 折れ線グラフにするか棒グラフにするかを人力. 


3) データを人力する（この部分を変えれば，関数を表示することもできます）. 

4) 目盛の最大値 • 最小値を人力する. 


5> グラフが表示される. 
ブログラムを次に示します. 


もし，ブリンタにコピーしたいときは COPY キーを押す. 
(カラーページ④参照） 


カン 〆 ク - ，フサク t イ 


data 


ie IX* 

20 
30 

100 ' 

110 / input 
120 / 

130 WIOTH 80iSCREEN 2(COLOR 9 f eiCLS 
140 PRINT TAB<20> |*<<< Graph maker >>> 

1S0 1 INPUT- Input titl# Qr*ph - |TITLEt 
166 PRINT* Input typ 蕾 of graph _ 

170 PRINT* : TUt ン .1 ♦•ウ .2" 

189 LOCATE 40,31 PRINT TAB<79) |iLOCATE 40,3 

190 INPUT AtiPRINT 

2ee IF A^<>« 1* ^40 A ， 0*2_ THEN 180 
210 TYPE-VAL<A^> 

220 INPUT* Input number oi d*t* <1••• than 80) •|DATAN 

230 IF DAT 州 >80 THEN PRINT CHR»<2S2>|-Number of datA too big! - lOOTO 220 ELSE IF 
DAT^< J THEN PRINTMn#o«1 number !• i GOTO 220 
240 OPTION BASE 1 
290 DIM D<DAT^I) 

260 DATAMAX—1381 DA- 
270 FOR I-i TO DAT 州 


200 

290 

aee 

310 

320 

330 

340 

350 

360 

370 

380 

390 


PRINT 
INPUT 
IF 
IF 


U8IN0 fl d*ta MMN 編 * |I| 

D< I> 

D<I>>DATAhWX THEN DATWiAX-D<I) 

DdXDATAMIN THEN DATAMIN-D<I> 

AVE-AVE+D ⑴ 

NEXT I 

INPUT* メノ W4 ， イレ， |tVO< 

INPUT - サイシ ■ ウ 9 イレ， |MIN 

IF hWX<-HIN THEN PRINT CHW<2S2) | "Error fW«-MIN , 
/ 

• M 暴 K 费 graph 


I GOTO 340 


400 CL 8 

410 LOCATE 20 山 PRINT ■<< •|TITLEt|* >>■ 

420 LINE<0 f 0> -<639,139) f f B 
430 LINE<25 I 30)-<30 I 30) 

440 LINE-STEP<0, 100 〉 

450 LINE-8TEP<420 > 0> 

460 LOCATE 1 9 30¥8iPRINT WO< 

470 LOCATE i f 130¥8iPRINT MIN 
480 STE-1/DATANX400 

490 LOCATE <30^STEK3/2)^8 f I 81 PRINT ■1* 

500 AUE-AVE/DATAN 

510 YAVE-130-<AVE-^IN)/<hVO<-«IN)K100 

920 IF YAVE<20 THEN YAVE-20 ELSE IF YAUE>130 THEN YAVE-130 
530 / 


340 FOR 1-1 TO DATAN 
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330 Y-130-<D<I)-MIN>/<r^X-«IN>X 100 

360 IF Y<20 THEN Y-20 ELSE IF Y>130 THEN Y-136 

370 X_30 ♦ 丨 X8TE 

380 ON TYPE 008UB 690,790 

390 NEXT I 

600 IF TYPE-1 THEN LINE<30 f YA»^E> -STEP<400 f 0> 

610 LOCATE Xl¥8-l f 18IPRINT DAT^4 
^20 C^CHR^<2S4) |C1^-CHW< 233) 

430 LOCATE S8 f iBiPRINT C#|» ， •• ラ 7 ウ i_|DATW iClt 

从 0 LOCATE 58•121PRINT C%r W ノ • • |AVE |Clt 

<S30 LOCATE 38, ISiPRINT C.|_ M 毳 x I _ |DATM^X|C 1 聿 

640 LOCATE 58,161 PRINT C 拿 |_ Min i a iDATMilNiClt 

470 LOCATE 0,20 
680 END 
690 / 

700 / Or«»«n sub 
710 / 

720 IF 1-1 THEN 740 
730 LINE<Xl f Yl>-<X f Y> 

740 Xl-XiYl«Y 

7S0 LINE<X f 130)-8TEP<0 f S) 

760 IF I MOD 5-0 THEN LINE-STEP<0 f 2) 

770 RETURN 
780 " 

790 • Bou sub 

eee / 

810 LINE<X f 130>-<X48TE-2 f Y> f f B 

820 IF Y>YAVE THEN 840 

830 LINE-<X f YAVE) ff BF 

840 Xl-X^STE/2^l 

838 LINE<Xl f 130)-3TEP<0 I S) 

860 IF I MOD 3-0 THEN LINE-8TEP<0 f 2> 

870 RETURN 

3-5 グラフィックテクニック 


3-5-1 スクリーンモード 1.5 (160X200 フルカラーモード） 

ハ•ソピアは，マニュアルには辩かれていませんが， 160 X 200 ドットで8色使うことが可能です. 
次のブログラムを実行してみて下さい. 


1000 Util 

1010 "KK* SCREEN DOT 160X286 

1020 1XX 

1030 WIDTH 80 

1040 CLS 

1030 SCREEN 2 

1860 OUT 8,224 '丨 SELECT SCREEN MODE 
1070 X-0iY*0iC-1iD-1iE-l 
1080 QOSUB 1190 • P3ET 


090 

/ 





100 

IF X>150 

TH^N 

D--liO<C+l> 

MOD 

7+1 

lie 

IF X<1 

THEN 

D-l iO<CM> 

MOD 

7+1 

120 

IF Y>1?8 

THEN 

E— 1 iO<C* 1) 

MOD 

7.1 

130 

IF Y<1 

THEN 

E-i i0<01> 

MOD 

7+1 

140 

X-X^OiY-> 

r+E 




130 

GOTO 1080 




160 







70 I PSET SUB 


160X280 


1180 ^ 

1190 Bl-C MOD 2iB2-<C¥2> MOD 2iB3-<C¥4> MOD 2 
1200 X1-XX4+1 

1210 PSET<Xl f Y) 9 B1 I ， GREEN 

1220 PSET<X1+1,Y>,B2 RED 

1230 P3ET<XU2 f Y> f B3 BLUE 

1240 RETURN 
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y . 3b グラフィック 


この ブロ グラムを実行すると，色分解能 160x200 で描線することができます. オール BASIC で 
あるため，実行速度は遅いのですが，ハード的には 160x200 の色指定をすることが可能です. 

140 行の OUT8, 224 でこのモードが設定されます.スクリーンモードと 8 番ポートは次のような 
関係になっています. 


— f II % 


8番ボートに出力する値_ I 

スクリーノ 
モード 

横方向文字数 

(K y hS ) 

Kua 

iua 

kui 

[ 

3 

4 

5 

6 

7 

0 

36、- ) 

mm 


mm 

3 . 

4 

5 

6 

7 

80(—— ) 

32 

33 

34 

35 

36 

mm 


39 

1 

36( 72 X 96 ) 

64 

」 5 — 

66 

67 

68 

MM 

70 

71 

1 

80(160 X 100) 

96 

97 , 

98 

99 

100 


102 

103 

〇 

36 (288 X 192) 

128 

129 

130 

131 

132 

133 

134 

135 

C 

80 (640 X 200) 

160 

161 

162 

1 163 

164 

165 

166 

167 

1.5(?) 

36( 72 X 192) 

192 

193 

19 し 

~~\9S 

196 

197 

198 

199 


224 

225 

226 

227 

228 

229 

230 

231 


図3 — 5— 〗各スクリーンモードとモード 1.5 の8番ボートへの出力の値 


8 番ポートは CRTC の 8255 にスクリーンモードと背跃色を出力するポートで，各ビットは次のよ 
うな鹿味を待ちます. 

BIT7 ファイン•グラフィックモードセット信号 
DIT6 グラフィックモードセット信号 
BIT5 WIDTH セット (80 文字… 1 ) 

B1T4 〜 3 未使用 

BIT2 — 0 背景色セット信号 

(液晶ディスブレイでは1:10ラスタ0 : 8ラスタ） 
これからもわかるように，このモードではファイングラフィックモードとグラフイックモード 
の_方がセットされた形になるので横方向 160 ドットで 8 色の色指定ができ，さらに縦方向の分解 
能が 200 ドットというスクリーンモードになります.このときのディスブレイコードは SCREEN 1 
のときと同じになるので， SCREEN2 で PSET を行うと横方向の 4 ドット分で 1 ドットとして表示 
されるのです. 

このとき各ドットは次の色を示します. 
x をドットの x 座標とすると， 


X 

MOD 

4= 0 のドッ 

卜：無視される 

X 

MOD 

4=1 のドッ 

卜：緑のピクセル（画索) 

X 

MOD 

4= 2 のドッ 

卜：赤のビクセル 

X 

MOD 

4= 3 のドツ 

卜：靑のピクセル 


画面に表示される色は，緑，赤，青の 3 つのピクセルの和となります. 

このモードを使えば，タイリング (Tiling :となりあわせた色をまぜて中間色を表す）してもなか 
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見えます. 


します.中解像モ 


解像力 


きれいに色が混って； 


•0 169 8TEP 21 
■0 T0 13? STEP 


T-BASIC 

20 

30 / 

40 WIDTH 88 
30 CLS 

6e SCREEN 2 i 7 SET SCREEN MODE 

70 OUT 8,224 I ， FOR CRTC 

ee DIM C< 1) 

90 FOR YI-0 TO 160 STEP 21 
00 FOR XX-0 TO IS? STEP 20 

C< 1>-C< D-liIF C< 1X0 THEN C< l>-7iC<0>-C(8>- 
20 FOR 1-0 TO17 iX 繼 XX， I 

30 FOR J-0 TO 19 iOC(<ItJ) MOD 2) |Y-Y1*J 

40 GOSUB 330 

36 NEXT J 

66 NEXT I 

70 NEXT XX 

80 NEXT Y1 i LOCATE 0,23 
90 END 
00 

10 P8ET ROOTINE 

20 1 

30 C0-C MOD 2iCl_<C¥2> MOD 2iC2-(C¥4> MOO 2 

40 X1-XX4+1 

30 P8ET<Xl f Y) f C2 

60 PSET<Xl+l f Y>,C1 

70 PSET<Xl42 f Y) t C0 

80 RETURN 


IF C(0)<0 THEN C<0 )-； 


カラー REMARK 


ゲームソフトなどで， REM 文が®色されているものを見たことがあると思います. T-BASIC 
•は，雅しいテクニックなど必要とせずにリストに箱色することができます.その方法は，ファ 
クシヨンキーにカラーアトリビュート•キャラクタを人れ，適当なところで，スペースの代わ 
に押せばよいのです.（カラーページ⑥参照） 


KEY 1 ， CHR$(254) 




a 


BASIC で組ん 


り高速なので十分実 







策3« グラフィック 


10 y 3 

20 "i 
30 7 1 

iee i 
lie i 
120 
130 
i4e 
150 i 

169 I 

170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
306 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
446 
430 
460 
470 
480 
490 
500 
510 
520 
530 
340 
550 
960 
570 
380 
590 
600 
610 
620 
630 
640 
658 
660 


XXX 

年 XX VIEW WINDOW SAMPLE 

XXX 

WIDTH 801 SCREEN 21COLOR S,7iCLS 

GOSUB 10000 \ f INIT VIEW U WINDOW 

/ 

• WINDOW SET 

/ 

NINDOWX1—10 IW1NDOWX2-160 
WINDOWY 1-0 IWINDOWY2-70 

• 

• リ IEW DATA SET FOR ARRAY 

/ 

L00PtV0<-3 
OPTION BASE l 

DIM UX<2 t L00PMAX> f VY<2 f LOOPMAX) f COL<LOOPMAX) 
RESTORE 

FOR 1-1 TO LOOPMAX 
FOR J-i TO 2 
READ VX<J f I) f VY<J,I> 

NEXT J 9 1 

DATA e t 0 f 624 9 192 

DATA 72,56,480,132 

DATA 100,75,340,124 

COL(1>-1iC0L<2 〉 -2iC 0L<3>-6 iCO し P-0 

/ 

• MAIN START 

/ 

FOR LOOP-1 TO LOOPmX 

VIEWX1-VX<l f LOOP>iUIEWX2-VX<2 f L00P> 

VIEMY1-VY< 1 f LOOP> iVIEWY2-VY<2 f L00P) 

RESTORE 1030 

GOSUB 10130 |/ CLS VIEW-PORT 

COL-COL(LOOP) 

GOSUB 690 
COLP-COL 
READ A% 

IF A ♦- "P* THEN GOSUB 620 PAINT 

IF At--0" THEN GOSUB 500 ^ LINE 

IF A ♦- 'END* THEN 460 
GOTO 430 
NEXT LOOP 


NEXT 

END 


'LINE 

/ 

READ XI f Yl,X2 f Y2 
X»FNUWX<X1) iY*FhWWY<Yl> 
XX-FhM^X<X2) iYY-FfMTrCY2> 
LXNE<X f Y>-<XX f YY> 

READ Xi IF X く 0 THEN RETURN 
READ Y 

XX-FhWWXCX) iYY-Fr>WWY<Y) 
LINE-<XX f YY> 

GOTO 370 


• PAINT 

/ 

READ X t Y ， CC，CD 
XX-FhMAiX<X) iYY-FbM4Y<Y) 


670 PAINT<XX 
680 RETURN 


(X) 

• YY: 


690 

700 


CO し OR FOR 


卜 PORT 


710 / 

720 XS-VIEWX1¥8^ I iXE-VIEV4X2M8-1 
730 YS-VXEWYl¥0^1iYE-VIEWY2¥8-l 
740 FOR い YS TO YE 

750 LOCATE X3 f IiPRINT CHR#<248^C0L) 

760 LOCATE XE f IiPRINT CHR^<248+CO し P> 

770 NEXT I 
780 RETURN 
1000 / 
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1010 y DATA FOR PICTURE 
1020 / 


030 

DATA 

0 

• 29 

•10 

9 3 

,53 

9 15 

.53 

i 18 

.49 

, 2 ? 

040 

030 

DATA 

DATA 

49 

e 

• 29 

• 29 

,33 
• 31 

9 49 
,21 

,55 

9 43 

,40 

,29 

9 ie 

f 43 

,29 
• 29 

,10 

,31 

w 

,-1 

,•1 

060 

DATA 

p 

43 

•33 ,13 

• 3 
i 14 

,3 

9 e 

.45 

,10 

,44 

9 ie 

070 

DATA 

•12 f 42 

9 42 

,23 

,42 

.27 

% 62 

f 42 

086 

DATA 

63 

,43 

>63 

,92 

,45 

i 43 

p 62 

.47 

,55 

.47 

9 93 

.46 

090 

DATA 

32 

,43 

»42 

.43 

f 42 

.48 

,43 

9 S 2 

100 

DATA 

47 

,34 

f S 2 

,35 

f 63 

• 53 

,70 

,34 

,72 

,53 

110 

DATA 

73 

,32 

,74 

f 48 

9 74 

9 42 

• 73 

.39 

,33 

f 23 

120 

DATA 

52 

,22 

,20 

,53 

9 18 

,54 

•17 

,59 

. 17 

,62 

, 17 

130 

DATA 

6A 

,64 

9 23 

.73 

,23 

f 7 S 

9 IS 

,74 

9 13 

140 

DATA 

73 

i 12 

,71 

,11 

f 70 

. 10 

,45 

lie 

f -i 

f P 

156 

DATA 

43 

, 13 

f 1 

f 1 

f e 

,81 

9 10 

,70 

t 13 

f 77 

169 

DATA 

19 

,77 

f 85 

f 47 

,78 

,30 

f 79 

,93 

f 82 

,34 

9 84 

170 

DATA 

33 

,ss 

f 102 

,35 

, 104 

.34 

. 109 

• 33 

. 188 

180 

190 

DATA 

DATA 

31 

46 

, is? 9 se 

•89 ,48 

f 109 
,87 

,43 

f 46 

,90 

f 87 

,43 

.20 

,90 

.88 

,47 
,17 

,97 

,90 

200 

DATA 

16 

9 96 

f 16 

f ?7 

, 17 

,98 

i 18 

f 9 Q 

• 23 

f 10 ? 

210 

DATA 

23 

, 10 ? 

9 19 

. 107 

,13 

. 103 

, 11 

f 104 

,10 

,81 

220 

DATA 

10 

,-1 

,P 

,90 

t 13 

f 1 

t 1 

,e 

till 

t ie 

238 

DATA 

111 

f 53 

, 123 

,33 

, 123 

, 10 

• 111 

f ie 

f -l 

• p 

240 

DATA 

120 

i 13 

,1 

i 1 

9 e 

f 127 

9 10 

• 127 

,55 

f 138 

250 

DATA 

S 3 

1 

f 138 

9 ie 

, 127 

9 10 

i-l 

■ P 

• 130 

,13 

f 1 

260 

DATA 

,END 










VIEW hi WINDOW SUBROUTINE 


リ 1EW/W1NDOM INITILISE 


WIDTH 80iSCREEN 2 


10000 /XXX 
10010 
10020 / 
iee3e / 

10040 " 

10030 / 

10060 VIEWX1-0iVIEWX2-63? 

10070 VIEWY1-0IVIEWY2-19? 

10080 WINDOWX1-0IWIN00WX2-63? 

10090 WINDOWY1-0IWIND0WY2 -199 

leiee def 
lene 
10120 
10 130 / 

10140 / CLEAR VIEW-PORT 

10130 LINE<VIEWXl f VIEWYl)-<giEWX2 f VIEWY2> 9 0 9 GF 
10 160 LINECVI EWX 1 f VIEWY 1> -< VI EWX2. VI EWY2> t 1 V B 
10170 RETURN 


DEF RM(X<X)»<VIEWX2-VIEWX 1>/<WIND0WX2-WIND0WX 1)X(X-MINDOMX 1> 
DEF FNUWY<Y>_<VIEWY2-VIEWY1>/<WIND0WY2-WIND0WY1>X<Y-WIND0WY1> 


1> ♦ リ 1EWX1 
♦VIEWY1 


このプログラムを実行すると， ASCII のロゴタイプが大きさを変えて表示します. 

このブログラムでは，10000行からのサブルーチンで VIEW . WINDOW の初期設定を行い，10140 
からのサブルーチンで VIEW ボートの画面クリアを行います . VIEW と WINDOW は次の図のよう 
になります. 

本来ならば VIEW ボートの外側にはみ出す部分ははみ出さないように補正するべきなのですが, 
このプログラムでは補正していませんので注意して下さい 


108 







第 3 » グラ 


WINDOW ： 仮想スクリーンの見える部分を指定す 

仮想スクリーン ーー- 


IEW :スクリーンの表示場所を指定す 

CRT —- 


凶3 — 5 — 2 WINDOW と VIEW 

超高速グラフィック 

丨グラフィック機能の特色を生かした布速グラフィックのサンブルを紹介しま 
では色の変化と画面の変化を商速に行います.（カラ ー-^ー ジ⑧®©参照） 


20 "KX SCREEN 2 COLOR CWWOE SAMPLE PROORMi 
30 IK 

^0 力，•气二，” 3 •，ンクデサイ 

50 

100 SCREEN 2iWI0TH 001DEFINT A-2 
110 COLOR e t 0iCL8 

120 LOCATE 30 f 13iCOLOR 7iPRINT*C0L0R DEM0N8TRATI0N f 

30 

40 MAKE CRT READY 


> TO 320 STEP 
I 9 8)-<160^ 

640-1 f e >-<480- 
I i 19?)-< 160 + 
LINE<640-I f 19?) -<44 


e 

/2 f 87) 

/2 f 87) 

/2 f 120> 

卜 160 — 1/2, 128) 


«ANOE COLOR 

39,13 iPRINT*CHANGE COLOR 
■0 TO 3 

•■7 TO 0 STEP -1 
• OR し 

: 0 R J -10 TO 0 STEP -1 
LOCATE 0 t JILOCATE 0.24-. 


20 
30 
40 COLO 
50 7 

60 y 
78 " 











390 OUT 
400 FOR 


8,224 
1-1 TO 


2000 1 NEXT 


410 OUT 8,96 

420 FOR 1_1 TO 20001 NEXT 

430 COLOR 7 f 0iFOR 1-0 TO 24iLOCATE 

440 FOR 1-1 TO 100010 UT 8,224 iOUT 

430 GOTO 230 


0,1iNEXT 

8,160 i 


NEXT ! 


このブログラムでは，カラー（表示色）を変えることを COLOR と LOCATE だけで行っているた 
めこれだけ高速に色の変更ができるのです.また，スクリーンモードを OUT 命令で変化させてい 
るので，画面を消さずにモアレの模様を出すことができます. 

ブログラムの&部分は次のようなことをしています. 

100〜110行 画面の初期設定 . COLOR 0, 0でクリアするのは，表示色を黑として，引い 

た線が見えないようにするため. 

160〜210行 画面には見えないが，黑で線を引いている.以後この線を消すことはない. 

240〜330行 COLOR で表示色を設定し， LOCATE でカーソルを觔かすことにより，画面 

左端の左側のアトリビュートに色コードを冉き込む.この方法により色の商 
速変化が可能. 

390 行 OUT 8,224 で 160X200 ドットモードにしている. 

410 行 同様に， 160X100 ドットモードにする. 

440 行 640X200 モードと 8 色 160x200 モードを急速に変化させる.スペースの数に 

よつて画面の搽子が変化する. 


3-5-5 機械語による V - RAM の Read/Write 


機械語を使って V - RAM を直接アクセスするときには次のフローチャートに示す手順に從う必要 
があります. 

次のプログラムはこの手順に従って V - RAM のアクセスを行っています.機械語ブログラムのデ 
ータの部分にそれぞれの命令の意味を REM 文で記してあります. 


000 "XXX 

0 10 ’XXX V-RAM READ WRITE S^ViPLE 
020 T-BASIC 

030 DIM Al<2> f A2<2) f A3<2) 

040 RESTORE 

030 リ RWR-&HF000 丨 IF VRWR<0 THEN VRWR-VRWR^2^161" リ -RAM WRITE ROUTINE 
060 リ RRCXHF100 丨 IF リ RRD<0 THEN VRRD-VRR0^2^ 161 " リ -RAM READ ROUTINE 
111 1530 •’ SET WRITE ROUTINE 

B9 0 0 ==== 二 “ 8 m _ ROUTINE 


00 POKE VRRD^38 > VRRDA-INT<VRRDA/2S6)X236 
10 POKE VRRD439,INT<VRRDA/256> 

20 POKE VRR0^43 f VRRDB-INT<VRRDB/2S6> X256 
30 POKE VRR0444 f INT<URRDB/236> 

40 ^ 


30 ' TEST DATA DISPLAY 
る 0 / 


170 RESTORE 21101 WIDTH 36(SCREEN liCLS 
180 READ XliIF XK0 THEN 1210 
190 READ Y1 f X2 f Y2 f C 

200 LINE<Xl f Yl>-<X2 f Y2) f CiQOTO 1180 
210 RkAO XliIF Xl<8 THEN 1246 


GRAPHIC DISPLAY MODE 
READ PARAMETER 
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OUT 

OUT 


1220 READ Yl f C 

1236 P8ET<Xl f Yl) f CiGOTO 1210 
1240 7 

1230 7 COPY TEST DATA 
1260 
1270 
1280 
1290 
1360 
1316 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1430 
1460 
1470 
1480 
1490 
1300 


READ PAR^iETER 


U-R^i START ADDRESS 
12901" START ADDRESS MASKING 2KB 


&H10 f 12iSTA-INP<ftcHll>X256 
&cH 10 9 i3iSTA»STA*INP<^Hl l> ♦1 
IF STA>2047 THEN STA-STA-20481 GOTO 
FOR ROW-2 TO 4 

Ai< l 〉 _STA+R0WX37+4 
FOR CPY-1 TO 3 

A 1(2)-STA^<R0W^CPYX4>X37^4^CPY*3 

FOR BLK-0 TO 12288 STEP 4096 ^ WRITE DATA THREE TIMES 

FOR CLM-0 TO 21 
FOR 1-1 TO 2 

A2<1>-A1 ⑴ ♦CLH 

IF A2<I>>2047 THEN A2<I)-A2<I>-2048 
A3<I)-A2(l>tBLK 
NEXT I 

POKE VRRD*16,A3<1)-INT<A3< 1)/236)X296l^ 

POKE VRRO^20 f INT<A3<1)/236) 

CALL リ RRD ^ 

OUT PEEK<VRRDB) l< 

POKE VRWR+16 f A3< 2)-INT<A3(2)/236)X2361" 

POKE VRWR+20,INT<A3<2>/236>♦PEEK<VRRDA) 

CALL VRWR t^ 

NEXT CLM 


リ -RAM ADDRESS 

READ TEST DATA 
READ DATA TO WRITE DATA 
V-RAM ADDRESS 

NRITE COPY DATA 


NEXT BLK 
NEXT CPY 
1310 NEXT ROM 
1320 END 
1330 / 

1940 • hWCHINE COhTV^D SET 
1530 READ l>tiD-VAL<^H-4W) 
1360 IF 0-253 THEN RETURN 
1370 POKE f^OR f D 
1580 MADR-MADR>1«G0T0 1330 
1390 / 

1600 • XXX WRITE ROUTINE XXX 
1610 DATA F3 
1620 DATA DB f 09 
1630 
1640 

1690 DATA 
1660 DATA 
1670 DATA 
1680 DATA 
1690 DATA 
1700 DATA 
1710 DATA 3E f ee 
1720 DATA Z6 f BF 


DATA DB f 0? 
DATA E6,40 
20, FA 
DB f 0? 
E6 9 40 
28, FA 
3E 9 00 
D3 t ee 


di 

IN 

IN 

AND 

JR 

IN 

州 D 

JR 

LD 

OUT 

LD 

AND 


A f 0?H 

A f 0?H 

40H 

NZ f M^ 

A f 0?H 

40H 

Z,_4 

A 9 00H 

00H f A 

A 9 00H 

0BFH 


730 

DATA 

D3 f 0A 

重 / 

OUT 

0AH f A 

1 羼 drft high ^ 

wri t« 

740 

DATA 

DB 9 09 

DB t 09 

重， 

IN 

A f 09H 

1 dummy r»ad 


750 

OATA 

1 / 

IN 

A f 0?H 



760 

DATA 

E6 9 40 

1 / 

AND 

40H 



770 

780 

DATA 

DATA 

20, FA 
DB t e? 

1 / 

1 ^ 

JR 

IN 

NZ,K-4 

A f 0?H 

|w«i t H-SYNC 

l«tatu« r 譬暴 d 

ON 

790 

DATA 

E6 f 40 

1 / 

州 D 

40H 



800 

DATA 

28 f FA 

1 / 

JR 


|wai t H-SYNC 

OFF 

816 

DATA 

D3 f 0A 

1 / 

OUT 

0AH 9 A 

|writ« signal 

r»»« 

820 

DATA 

FB 

1 / 

El 


(•nAbl• interrupt 

830 

DATA 

C?,FF 
(X REAC 

纛 / 

RET 




840 

• X) 

)ROUTINE XXX 




850 

DATA 

F3 


DI 


idi«Ab 1 • interrupt 

860 

DATA 

DB f 09 

1 / 

IN 

A f 0?H 

1 dummy r 會羲 d 


870 

DATA 

DB f 09 

E6 f 40 

1 / 

IN 

A,0?H 

l»t 毳 tu« r««d 


880 

DATA 

1 / 


46H 



890 

900 

DATA 

DATA 

20, FA 
DB f 69 

纛 / 

1 / 

JR 

IN 

NZ ， X_4 

A f 09H 

|w«it H-SYNC 

ON 

910 

DATA 

E6 9 40 

書 / 

AND 

40H 



920 

DATA 

28 f FA 

3E f ee 

1 / 

JR 

Z • 卜 4 

jw 羲 it H-SYNC 

OFF 

930 

DATA 

置 / 

し D 

OUT 

A,eeH 



940 

DATA 

D3 f ee 

1 / 

06H 9 A 

|V-RAM *drs 

low 


• C0MW4C 

• com^ni 


READ 


SET TO MEMORY 


di 篡毳 bl 着 interrupt 
dumny r 譬暴 d 

status r»Ad 


w*ft 

• tat 


t H-SYNC 

tu« r • 毳 d 


ON 


OFF 


羲 dr 


it 费 signal■ 


>-i *v# 


••t 
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I signal « high 1 
high r 着 Ad signal %mt 



H-SYNC ON 
I K< 


vaiHftvritTVrfir 


この間， CRT の埸合 54// S 以上 
LCD の埸合は63外以上の時間 
が必要です.これは H - SYNC の 
期間中にアドレスを変化させる 
ことによる誤動作を防止する 
ためです. 

読み出し香き込みを確 K する 
ためのサイクルです. 

この間に読み出し書き込みが 
行われています. 












第 4 章 

入出力装置 


4-1 オーデイオ • カセット 
4-2 フロッピィ • ディスク 

4-3 RAMPAC 
4-4 プリンタ出力 















第 4 章入出力装置 


T - BASIC を対象に，カセット，ディスク等のフォーマットや，ファイルの人出力について解説 
し，使用の際知っておくと便利なルーチンを載せました.持に，ハ•ソピアの持傲である RAMPAC 
については，別に項を立て解説します. 

4-1 オーディオ • カセット 

バソビアのカセットインタフ エィ スは1600 ボー （ 1秒問に1600ビット）と商速で，走行速度が士 
10%程度变觔しても再生可能な変调方式 （ F -2 F ) になっています.次にカセットファイルの解説を 
しましよう. 

4-1-1 CLOAD ， CSAVE (トークン•ファイノレ） 

T - BASIC では， CLOAD , CSAVE に使用するファイル名に変数を使うことができます. 


10 ヂ ** t 譬黎 t 

20 FOR 1-33 TO 248 
30 PRINT CHR ♦⑴ | 

40 NEXT 

c»av«-TEST- 

OK 

AW TEST" I CLOAD A# 

FoundiTEST 
Ok 


CSAVE では，カセットテープに次の図に示すフォーマットで弃き込まれます • 

10バイト 

6バイト （6 バイトに满たないとき0 0 H を補う） 


9バイト （ BASIC ブログラムの W 後にある3バイト 
の0 0 H と合わせて計12バイトの0 0 H を 
奔き込む.說み込みのとき10バイトの0 0 

04-1-1 トークンフアイルのロジカル 構造 H で BASIC ブログラムの終 f と 判断 


セて 1)3 H 

ファイル名 

BASIC プログラム 
(中問言梧） 

令て0 0 H 
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BASIC ブ a 




■■■■QQ 國 



策 4 S 入出力袋* 


データは256バイトずつに分割して書き込まれています. 

最初に害き込まれる10バイトの D 3 H で，ファイルを CSAVE で書き込んだファイル（トークン • 
ファイル）である，と解釈しています.前ページに，そのフィジカルフォーマットを示します. 

また， CSAVE の確認(ベリファイ ） のための命令として CLOAD ? がありますが，この命令は CLOAD 
PRINT としても同じになります.これは ， w ?"と' 1 PRINT "の中間言語が同じであるためです. 

4-1-2 PRINT #- 1(アスキー.ファイル） 

データをテープに害き込んだり，読み出したりする命令に， PRINT #- 1や INPUT #-1 がありま 
す.このときデータは，アスキー形式に変換され書き込まれます. 

アスキー • ファイルはテープの進行方向上に1ビットずつ記録されています.次の図にその様 

子を示します. 



•チェックサム有効範囲 

I 


スター ト 
ビット 
ず 

ビット 

ビット 

ビット 

ビット 

ビ 7 卜 

ビット 

ビ .7 卜 

ビット 

ストップ 

ビット 

丫 

#0 

#1 

#2 

#3 

#4 

#5 

#6 

#7 


図 4 一 1 一 3 アスキーファイルレコードフォーマット 

ここで，データのテープへの害き込みを試してみましょう.次のブログラムでは素直にデータ 
を害き込んでいます. 


00 WIDTH 80 
10 OVER-TIME 
20 FOR い 1 TO 20 
30 PRINT I 9 
4Q PRINT 轉 -1,1 

30 NEXT I 

60 PRINT TIME—OVER | 


このブログラムでは， 20 個の数値をテープに書き込むために約 90 秒かかりました.テープに害 
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き込む回数を減らせば時間を短缩できますが， 


PRimU-X $ l $ 2 9 3 9 A 9 ^ f 6 9 7 


このようにしてカンマで区切っても，カンマ1回ごとに WAIT (テープの音の低い部分）が人る 
のであまり変わりません. 

データを文字列に合成して，1つの文字変数として s き込めば時間は大幅に短くなります. 
次のブログラムでは，データの区切として V "を使っています. 


10 7 xx 

20 "XX 0 IT WRITE S^PLE 

30 IX 

100 WIDTH 80 

110 TIMEt-*00i00i00- 

128 OVER-TIME 

130 FOR 1-1 TO 20 

140 A^-A^4STR^<!>♦•/• 

150 WRITE I 9 A 拿 
160 NEXT I 

170 PRINT#-l f A»«PRINT At 
180 PRINT TIME-OVER 
190 / 

200 PRIKT fl R#wind tap* and hit any k ， y_ 

210 At-INPUTt<1) 

228 OVER-TIME 

230 INPUTII-l f AtiPRINT At 

240 FOR 卜 1 TO LEN<At> 

230 C^-MID*<A# f I f 1) 

260 IF Ct-V THEN PRINT VAL<B#> f iM- •- ELSE B.-M + C 嗪 
278 NEXT I 
280 PRINT 

290 PRINT TIME-OVER 
300 END 


4-1-3 BSAVE , BLOAD (バイナリ • ファイル) 


メモリの内容をバイナリ形式でテープに*き込んだり読み出したりするための命令として， BSAVE , 
BLOAD があります.形式は次の通りです. 


BL0AD#-1, ❶ファイル名"[，開始番地] 
BSAVE#- 1, •ファイル名' 開始番地，サイズ 


BSAVE , BLOAD のフォー マッ トは次のようにな，）ます. 


118 




ブロック 

プリ 

m 

ppppm 




へ 7 ダ 

アンブル 


Hum 

m 


■ 


図 4 一 1 一 4 BSAVE のフォーマット 

また，ファイル名には CLOAD , CSAVE 间様，変数を使うことができます. 

4-2 フロッピイ•ディスク 

4-2-1 ディスク•フォーマット 

T - DISKBASIC では， ミニフロッピィ の人出力の管理はクラスタと呼ばれる，8セクタごとの2 
〈バイトで行われています.その構成は次のようになっています. 
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h 1 、答^療^^^^^ 1 


り256バイトの倍密度でトラック当り1〜16の 
ただしトラック0ヘッド0は単密度 （128 B )) 

一1ミニフロッピーの 構成 

になっています. 

ンを登録したファイルが付属され， BASIC から読み出すこ 

は，かくされていて，ファイル名を見ることはできないよ 




システムデイスクと漢字ハ•ターンのフアイルについては，次の7 


図4一2—3 システムと漢字パターンファイル C 









track 18 h*Ad 0 
00 i 46 44 55 34 
10 i 46 4F 52 4D 
20 i 56 4F 4C 43 
30 I 56 4F 4C 43 
40 i 4E 45 4F 4E 
50 i 44 S2 4137 
60 f 4D 4F 4E 4? 
70 i44 49 53 31 
80 i 30 32 4F 35 
90 i 44 4? 53 40 
A0 i 44 4? 53 4D 
Be I 40 4F 4E 31 
C6 I 44 49 33 41 
D0 l 44 49 53 4B 
E0 I 43 32 52 4F 
F0 i 414C 4C 32 


ファイル名 银ム 


80 

47 

FF 

FF 

FF 

FF 

FF 

FDUTI し 

-6 

80 

49 

FF 

FF 

FF 

FF 

FF 

FORmT 

•I 

80 

45 

FF 

FF 

FF 

FF 

FF 

VO し COPY 

_E 

86 

4B 

FF 

FF 

FF 

FF 

FF 

VOLCOMP 

-K 

80 

41 

FF 

FF 

FF 

FF 

FF 

NEON 

-A 

80 

3E 

FF 

FF 

FF 

FF 

FF 

DRAUJ 

-> 

80 

3D 

FF 

FF 

FF 

FF 

FF 

MONITOR 

■ 

80 

3A 

FF 

FF 

FF 

FF 

FF 

DIS1 

80 

39 

FF 

FF 

FF 

FF 

FF 

PROUT T0S_9 

80 

2A 

FF 

FF 

FF 

FF 

FF 

DISM2-0 

• 

80 

35 

FF 

FF 

FF 

FF 

FF 

DISM3 

二 3 

80 

2D 

FF 

FF 

FF 

FF 

FF 

M0N1-1 


ee 

33 

FF 

FF 

FF 

FF 

FF 

DISA 

73 

00 

25 

FF 

FF 

FF 

FF 

FF 

DISKUTIL 

• X 

80 

29 FF FF 

FF 

FF 

FF 

ERRORM 

-> 

80 26 FF FF 

FF 

FF 

FF 

AL し RAM 

クラ 

スタ 






これらは次のよつな意味を持っています. 


0123456789 ABCDEF 




K I 

クラ 


\ 77 イル名 

■ 

會 

拡張子 

性 

スタ 

番号 

未使用 


0 0 H KILL されたファイル 
FFH 未使用 


byte 〇〜8 ファイル名最大9文字 

(0 0 H . FFH . 3 AH (:) を含んではならない) 

9 フアイル城性 

〇〇 H …ソース形式 （ JIS コード） 

10 H …ソース形式.方込禁止 

01 H …檐械掊プログラム （ BSAVE 形式） 

11 H …機械梧ブログラム.；5込禁止 

8 0 H …バイナリ形式(中間3猙形式) 

9 0 H …バイナリ形式.舁込禁止 

10 クラスタ番号ファイル領域の先頭クラスタ番号 

( FAT 内のボインタでもある） 


かくれた漢字ファイルがあるため，システムディスクの空きエリアは40クラスタしかありませ 
ん.長いブログラム等のファイルをいくつも書き込むためには，ワークディスクを作るか，漢字 
ファイルをとる必要があります.（第6章参照） 

DISKBASIC では，ディスクの中に寿き込まれたファイルの名前を見るときに，ディスク中のデ 
ィレクトリと呼ばれるテーブルを参照します. 

ディレクトリは，18トラック0ヘッドの1〜12セクタに棗き込まれています.それぞれは16バ 
イトで，次のようになっています， 


0000000030000000 

2222222252222222 

0000000 OF0000C00 
12222222242222422 

0090002040000900 
r 225522525322242 2 . 

tc40D00F00D0104DD 
C 4554224222232344 

S91FF 004042300321 
4444225253322554 
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04-2-4 デイレクトリ 
































次のブログラムを使えばデイスクの内容をダンプすることができます. 


chaog* print#r switch* 


10000 "XXX 

10010 FDDUMP 

10020 'XXX 
10030 / 

10040 1 4 you wAnt to us* printer th< 

10030 7 Printer switch Is n«xt 1 in*. 

10066 PRINTER-0 

18070 a PRINTERS th«n not us* printer 

10080 *1•• us* printer. 

10090 WIDTH 80iKEY OFFiSCREEN 0iCLS 
10100 ON ERROR GOTO 10490 

10110 PRINT-KXX Floppy Dimk Dump iPRINT 

10120 INPUT-Driv# - |DR1 リ E 

10130 INPUT-h«4d *|HED 

10140 INPUT - tr4ck •|TRACK 

10 130 INPUT_Mctor • | SECT A iPRINT 

10160 FIELDH0,128 AS 126 AS Bt 

10170 FOR SECT0R-8ECTA TO16 

10180 OUMMY^-DSKIt< DRIVE f HED,TRACK f SECTOR) 

10 198 PRINT USING* tr*ck NN h • 暴 d MM sector WIT |TRACK|HED | SECTOR 

10200 IF PRINTER THEN LPRINT US - 

19203 DI^-- 60 01 02 03 04 

10210 FOR 1-0 TO 7 


ia mm *«ctor nn-| TRACK |HED|SECTOR 
► ING* track N ㈣ h«ad NN %mc tor |TRACK|HED|1 
03 06 87 08 0? 0A 0B 0C 0D BE 0F* iPRINT DIt 


10226 

10230 

10240 

10250 

10268 

10270 

10280 

10290 

10300 

10310 


DI^-HEXt<I)4 B 0 i • 

FOR J_0 TO13 

DI^-DI^^RIOHTt<•0-^HEX»<A8C<MID#<At l I*1•1> > > t 2> 
NEXT J 
Dl^-DIW • 

FOR J-0 TO IS 

2- ASC < MlIH < A ，， m 6^ J + 1•1>> 

IF 31 く Z AND 2<240 THEN DI^-OI#^ CHR«(2> ELSE DI“DIW 
NEXT J 

PRINT OltilF PRINTER THEN LPRIKT D1 瘳 
10320 NEXT I 
10330 FOR 1-0 TO13 


10340 
10330 
10360 
W 370 
10380 
10390 
10408 
10410 
10428 
10430 
10440 
10450 

10460 PRINTiIF PRINTER THEN LPRINT 
10470 NEXT SECTOR 
10480 END 

/ 

Error r«sum* 


9 1>>).2) 


Wl - I -0 

FOR J-0 TO15 

DI ^- DI #4 RIOHT ^ C 0-^ HEX #< ASC < MID ^< B » I W 1* 

NEXT J 
OI^-DIW • 

FOR J-0 TO13 

2«ASC<MID^<M f WlM 16+J.1•1> > 

IF 3K2 AND 2<240 THEN DI^-DI#^CHW<Z) ELSE Dl^-DI ♦♦•パ 
NEXT J 


PRINT DItilF PRINTER THEN LPRINT Olt 
NEXT I 


10490 
lesee 
10310 

10520 IF ERR*64 THEN PRIhfT"B*d driv« numb き r■ iRESUME 10 120 
10530 IF ERR-30 THEN PRINT - Di»k I/O #rror•iRESUME 10110 
10540 IF ERR^oS THEN PRINT®B*d h*d/tr*ck/««c tor 11 iRCSUME 16130 
10530 ON ERROR GOTO 0 
10360 END 


ディスクの属性 


デイスクの属性は 18 トラック 


ツド • 13セクタの煅初の1バイトによって決まります 


121 



0 


255 


S 4 » 入出力鉍蔦 


ディスク 

属性 


未使用 (0 〇 H ) 


ディスク诚件. SET 义で設定された诚性である. 

0 0 H — 诚性なし（空白） 

10 H — 杏き込み禁止 （ P > 

2 0 H - KBCDIC ( E ) ……未使用 
4 0 H — リードアフタライト （ R ) 

図 4一2—6 ディスクの 属性 

/成性は SET 命令で設定する他に，次のブログラムでも設定できます.次のプログラムを実行す 
ると，害き込みを禁止することができます. 


10 IX 

20 ’XX Fi 1 • writ* protect 
30 y KK 

100 PRINT ■ 黎譬 t f1oppy-di»k 4or driv# 1 and hit [RETURN) k#y«| 

110 LINE INPUT At 

120 FIELD He 9 1 AS A 書 

130 LSET A»--P- 

140 OSKOt 2 f 8 f 18,13 


4-2-4 FAT (フアイル • アロケーション • テーブル) 


FAT (File Allocation TableHi ディスク領 W の使用状況を表しています • FAT は 18 トラッ 
ク • 0ヘッドの14〜16クラスタにあり，これら3セクタの内容は同じもので，15,16は写しです. 


FAT はディスク領域をクラスタ<8セクタ）単位で符理しています. 



0 0 H 〜8 BH - Next クラスタ»号 （■ FAT 内ポインタ） 

C 1 H 〜 C 8 H — ラストクラスタ （ CXH ) 

1〜8:存効セクタ数 
F E H —Reserved 

•クラスタ0,1,2, 3は常:こ予約済み 
• クラスタ72, 74は，デイレクトリ，デイスク诚性, 
FAT を記録してあるため常に予約済み 
FFH — 未使用 


04-2 — 7 FAT 

T - DISKBASIC システムや漢字パターンを含むディスクではその部分の FAT は FEH となってい 
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ます. 

4-2-5 デイスクへの直接書き込み 

プログラムを間違えて KILL してしまったときや，システムブログラムを一部変更したいとき等, 
デイスクの内容を直接修正したいときがあります.このときには次のブログラムを使って下さい. 
このブログラムは，1セクタごとに害き換えをすることができます. 


1008 1XX 

1010 FD SCREEN EDITOR FOR T-D1SK BASIC 

1020 1XX 

1030 WIDTH eeiSCREEN 0 
1040 COLOR 7 f 0iCLS 
1050 KEY OFF 

1060 GOSUB 1130 i / CONTROL CODE 

1070 GOSUB 1280 〆 INPUT 

1080 GOSUB 1440 i/ DISK READ 

1090 GOSUB 1980 i 7 DUMP 

nee oosub isse ^ edit 

1110 GOSUB 2300 CH^46E SECTOR 

1120 IF F し G1 THEN FLG1-0 I GOTO 1090 

1130 IF FL02 THEN FLQ2-0i6OTO 2640 SAVE DISK 

1 140 IF FLG3 THEN END ELSE 1110 

1150 …… 

1 160 …… CONTROL CODE 
1 170 …… 


1180 CW-CHR ， <13> 

1190 L.ARR0Wt-CHR#<2?> IR. ARR0W^-CHW< 28) 

1200 U•ARROWt-CHRt<30)iD.ARR0M«-CHRt(31) 

1210 H0ME^CHRt< 11> iCLt -CHR#< 12> 

1220 DEF FNADR<X f Y)-<X-6)/3^<Y-2>Ki6 \ i 
1230 YMAX-i7iYMIM-2 
1240 XMAX-32IXMIN-6 

1230 C4t*CHR^<232>iC5^-CHR^<233)iC6«-CHR«< 294) 
1260 FLG1»0 iFLG2-0iFL«G3-0 
1270 RETURN 
1280 …" 


0 蕾 t Adr«»fts 


1290 

taee 


INPUT DUMP LOCATION 


310 PRINT TAB<25)|»<<< FD EDITOR »> 

320 PRINT 

330 INPUT* INPOT DRIVE •• > DR 

340 IF DR<1 OR DR>4 THEN 1330 

330 INPUT- INPOT HED 丨 ％ HE 

360 IF HOB AND HOI THEN 1350 

370 INPUT- INPUT TRACK i_,TR 

380 IF TR<8 OR TR>34 THEN 1370 

390 INPUT- INPUT START SECTOR 丨 ■ 丨 STSEC 

400 IF STSEC<1 OR STSEC>16 THEN 1390 

418 INPUT* INPlfT END SECTOR (く C START SECTOR 】 +8> 丨 _ 丨 ENDSEC 
420 IF ENDSEC<STSEC OR ENDSE0STSE07 OR ENDSEC>16 THEN 1410 
430 RETURN 

440 /y/7/ 

450 • READ DISK 

460 " " • 


1470 DIM BUFFERS I f 7> 

1480 NBUFFER«STSEC-ENOSEC>1 


1490 

1500 


FIELD He,128 /AS Fit ,128 
FOR I-STSEC to ENDSEC 


AS F2% 


1510 DUMiY^-DSKU< DR f HE ,TR f I ) 

1520 BUFFERS0 f I-STSEC)-FIS 
1530 BUFFERS 1 f I-STSEC)-F2^ 


1540 NEXT 1 


1550 BUFFER.NUM-0iBUFFER.NUMP-ENDSEC-STSEC 
1560 GOSUB 2550 »^ MOVE BUFFER 
1570 RETURN 
1580 "… 






第 4 巔入出力装謳 


DUMP 


MN HEOM SECTOR-## - 


GOSUB 2550 

BU し _PEEK<VARPTR く F 1瘳> ♦1> 

BUH-PEEK<VARPTR(F1#> 4 2) 

BUFFER-BU し +BUHX256 
C し S 

LOCATE 0 f 0iPRINT ■<<< FD EDITER >>>* \ 

PRINT TAB<20> |CW| iPRINT USING*DRIVE-W TRACK-## HED-H SECTOR-##- |DR|TRiHE|3 
: ♦BUFFER.NUM 
680 GOSUB 2136 
•690 LOCATE 0. 

23456789 ABCDEF • 

1700 FOR 1-2 TO17 

1710 LOCATE 4 f I i PRINT* I • |TAB< 54) |M* | 

1720 NEXT I 

1730 PRINT* -♦••0 — i—2—3—4—5—6—7~8~9—A—B—C—D—E—0 12343厶 789ABC 


DEF 

1740 LOCATE 68,01 PRINT C6t |* BUFFER I *|BUFFER.NUM 
1730 FOR 1-0 TO15 

1760 LOCATE 0 f I^2 iPR 1NT RIGHTt<•0•♦HEX^C1*16) t 2>| 

1770 FOR J-0 TO IS 

1780 hHPEEK<BUFFERS I*16+J> 

1790 LOCATE J»3^6 f I^2 I PRINT RIGHT#<•d - ♦HEXt<M) ,2) | 

1800 LOCATE J + 36 •卜 2 

1810 IF M く 32 OR M>120 THEN PRINT ••- | ELSE PRINT CHW<M> 

1820 NEXT J 

1830 NEXT I 

1840 RETURN 

1850 

1860 • EDIT 

1870 • 

1880 X-XMINiY-YMIN 
1890 / 

1900 ' 

1910 LOCATE X f Y 

1920 A^-INPUTt<i)iSOUND 50,2 

1930 IF A，-CW THEN RETURN 

1940 IF A»-D.ARROWS THEN Y-Y^i«IF Y>Yf^X THEN Y-YMIN 

1930 IF At-U.ARROWt THEN Y-Y-1 i I F Y<YMIN THEN Y-YIW< 

1960 IF A^-R.ARROWS THEN X-X^ 111F X>XMAX THEN X-XMINiY-Y^ 

1 ELSE 1970 ELSE IF SCREENCX f Y)-32 THEN 1960 

1970 IF A»-L.ARROWS THEN X-X-liIF X<XMIN THEN X-XMAXiY-Y- 

1 ELSE 1980 ELSE IF SCREEN<X f Y)-32 THEN 1970 

1900 IF A 黍 -HOME. OR A^-CL^ THEN X-XMINlY-YHIN 

1990 IF <At>-*0 - AND OR <At>- a A- AND A^<--F - > 01 

)THEN IF SCREEN<X f Y)<>32 THEN GOSUB 2010iA»-R•ARROWSiGOTO 

2000 GOTO 1910 

20 10 … 0 • 

2028 • … • C^NGE リ A し 

2030 • 

2040 LOCATE X f Y iPRINT A 黎 
2050 X1-<X¥3>X3 

2068 A^-CHR^<SCREEN<X1 f Y))^CHR^SCREEN<X1♦1,Y>> 

20 70 

2080 ADRS-FNADR<X1,Y>♦BUFFER 
2090 POKE ADRS,M 

2100 LOCATE 36+FNADR く X,Y> MOD 16,Y 
IF M>31 AND M く 128 THEN PR 
RETURN 



LOCATE X f Y 

A^-INPUT^<1)iSOUND 50,2 
IF A^-CW THEN RETURN 

IF ARROWS THEN Y-Y^iiIF Y>YhWX THEN Y-YMIN 

IF At-U.ARROWt THEN Y-Y-liIF Y<YMIN THEN Y-YIW< 

IF A#-R.ARROWS THEN X-X+liIF X>XMAX THEN X-XMINiY-Y^111F Y>YMAX 
1970 ELSE IF SCREEN<X f Y>-32 THEN 1960 

IF A»-L.ARROWS THEN X-X-liIF X<XMIN THEN X-XMAXlY-Y-iI IF Y<YMIN 
1980 ELSE IF SCREEN<X f Y)-32 THEN 1970 
IF A 秦 _HOME 瘳 OR A^-CLt THEN X-XMINlY-YHIN 
IF <At>-*0 - AND OR <At>- a A* AND A •く ■■?•> OR 

IF SCREEN<X f Y><>32 THEN GOSUB 28101 At-R.ARROWSiGOTO 1960 
ITO 1918 


THEN Y-Y- 


THEN Y-' 


AND A^<- ( 


CHANGE リ A し 


PRIKT A% 


2220 

2230 


GOSUB 2460 
CO し OR 7，1 
PRINT C4 
LOCATE 0 
PRINT C4 
PRINT C5 
PRINT C5 秦 
PRINT C5 嘛 
PRINT C5 
し OCATE 3 




rrow 
rrow 
r row 
rrow 









2260 LOCATE 30,211 PRINT C5 ♦ド cls/hom* 
2270 LOCATE 30,221 PRINT C5«|■ return 
2288 LOCATE 30 ， 231 PRIMT C3 搴丨 _ Ctrl-* 
2290 RETURN 
2300 … " 

2310 • CHANGE SECTOR 

2320 /y ^ // 

2330 OOSUB 2466 
2340 PRINT TAB<25)|C4^|» 

2350 PRINT TAB<3> |_ 1i 

■ 


_|C6,|_courfto1 mov« to hom* position. 
•|C6^|"•nd of *dit• 

■|C6t| a k*y buiimr cl#*r. 


2360 PRINT TAB(45) 


2 i 


- MENU - • 

EDIT NEXT SECTOR-| 
EDIT OTHER SECTOR- 


E し SE LO 


INPUT A«i IF AW 


OR 


•y* OR 


2370 PRINT TAB<5) 3 i SAVE FOR DISK ■事 
2380 PRINT TAB<43)|- 4 i END OF PROGR^l 
2390 INPUT "Which do you «•! *ct 丨_|咐 
2400 IF LEN<W^)OI OR W^<» 1* OR THEN 2330 

2410 IF W ♦■■ド THEN IF BUFFER.NUM<6 THEN BUFFER .NUM-BUFFER .NUM^ 1 iFLOl- 
CATE 0 t 22iPRINT C6 ♦ 丨 _ERROR — NEXT SECTOR IS NOT ON MEMORY - iGOTO 2330 
2420 IF W»--2 a THEN LOCATE 0,221 PRINT C7^|*INPUT NUMBER OF BUFFER ••iI INPUT A^iB 
UFFER.NUM^VA し <A 秦〉 iFL01-l 

2430 IF W ♦- - 3 - THEN PRIhfT C5« | a SURE <Y/N> • 

•THEN FLG2-1iRETURN ELSE 2330 
2440 IF W ♦- THEN PRIhfT*END OK<Y/N> • | i INPUT A^ilF A ♦- *Y* OR A ♦- _y* OR At-** TH 
EN F し G3-1iRETURN ELSE 2330 
2450 RETURN 
2460 • … • 

2470 • CLEAR FOR LINE 19-24 

2480 • 

2490 FOR 卜 19 TO 24 

2300 LOCATE 0,1 
2310 PRIhfT TABC78) | 

2520 NEXT I 
2330 LOCATE 0,19 
2340 RETURN 
2330 • 

2360 • MOVE BUFFER 

2370 

2380 BUFFER^< 0 t BUFFER.NUMP)-F \% 

2590 BUFFERt<1 f BUFFER.NUMP>-F2# 

2600 BUFFER.NUMP-BUFFER.NUM 

2610 LSET F1»-BUFFER«<0 f BUFFER.NUM> 

2620 LSET F2^-BUFFER^<I f BUFFER.NUM) 

2630 RETURN 


SAVE TO DISK 


2640 
26Se 

2669 //7// 

2670 GOSUB 2550 

2680 FOR I-STSEC TO ENDSEC 

2690 LSET F l*-BUFFEW<0 f I-STSEC) 

2700 LSET F2^-BUFFERt<1 f I-STSEC> 

2710 OSKOt DR f HE f TR,I 
2720 NEXT I 
2730 OOSUB 2460 

2740 LOCATE 0 f 20iPRINT -SAVE OK" 

2750 INPUT -DO YOU WANT TO EDIT 州 OTHER SECTOR? ， |A 拿 
2768 IF OR A ♦- _y，.THEN RUN 

2770 END 


4-2-6 データ•ディスクをシステム•ディスクに 

データ•ディスクをファイルを壊さずシステム•ディスクにするためには， 4〜35クラスタに 
あるシステムをデイスクに害き込み， FAT を§き換えておけばよいのです. 

実際の手順を次に示します. 
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1) ドライブ1にシステムディスクを，ドライブ2にデータディスクを入れる. 

2) ドライブ1がシステムディスクかどうか確認する • 




第 4 S 入出力装» 


3>データディフ、クの FAT を調べる，システムを書き込めるかどうかを確認する. 
4> システムディスクの4クラスタから35クラスタを，データディスクに害き込む. 
5) システムの»き込まれた部分の FAT を离き換えて予約済 （ FEH > とする. 

次のブログラムではこの手順に従ってシステムをコピーしています. 


X 2% 


/ XXX 

"XKX SYSTEM DISK GENERATOR 
30 "KXK 

lee COLOR 7 f 0iWlDTH 80iSCREEN 8iC し S 

lie PRINT TAB<20> |"<<< SYSTEM DISK GENERATOR v«r 1.0 >>>■ 
120 PRINT 

136 PRINT TAB<25)|■MOUNT SYSTEM DISK FOR DRIVE I* 

140 PRINT TAB(25> |-MOUNT DATA DISK FOR DRIVE 2 m 


OR 


t 1> 

THEN 


ISO PRINT TAB<23)|* 

160 At-INKEYtiIF A ♦- 
n* THEN END ELSE 160 
170 / 

180 BUFFERST»ft<H?6CF 
190 • 

200 " 

210 / CHECK SYSTEM FD1 
220 • 

230 FIE し DM0,1 AS A ， 

240 DUMMYt-D8KIt<l f 0 f 
230 IF AtOCHR^<^HF3> 

290 / 

300 ' CHECK FAT < 

310 / 

320 FIE し DUe,139 AS A ， 

330 DUMMYt-OSKIt<2 f 0 f 10,14> 

340 FOR 1-5 TO 32 

350 IF ASC<hHH<At f I f i>)O^HFF THEN PRINT* 
370 NEXT 
380 • 

390 • SYSTEM COPY < FROM FOl TO FD2 > 

400 / 

410 FIELD ㈣0,128 AS At f 128 AS Bt 
420 FOR TR-1 TO 8 


OK? <Y/N) • 

m y m OR A._CHR^(13> THEN 170 ELSE IF 


N* OR 


PRINT-DR.1 IS NOT SYSTEM DISK! •lEND 


GENERATE SYSTEM 


hMKE SYSTEM •iSOUND 60,20 1 END 


430 

448 

450 

460 

470 

480 

490 

see 


FOR HED-0 TO1 
FOR SEC-1 TO16 

LOCATE 10 9 IBiPRINT USING"NOW COPY N HED _ TRACK MM SECTOR 
DUMMY—DSKI •く l f HED f TR f SEC) 

DSKOt 2 f HE0 f TR f SEC 

CHl^«A.iCH2t_WiL0CATE 20,121 PRINT TAB<40) | 

DUM1Y ， -DSK1 瘳 < 2,HED,TR,SEC) 

LOCATE 20,12 

IF CH1^*A 秦州 D CH2^-M THEN PRINT •CHECH OK! 

0 


430 


310 

CK NQ! RETRING-iGOT 
320 NEXT 
530 NEXT 
540 NEXT 
560 / 

570 • WRITE FAT FD2 
580 秦 

600 DUMMY^-0SKI»<2 f 
610 FOR 1-5 TO 32 
620 POKE BUFFERST^I-1 f kHFE 
630 NEXT 

640 FOR 1-14 TO16 
630 OSKO% 2 f 0 9 18,1 
660 NEXT 
790 END 


ELSE PRINT*CHE 


18 f 14) 
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4-3 


RAMPAC 


4-3-1 データ.フ オー マット 

RAMPAC 2 の人出力処理はセクタ単位になっています. 4 K の RAMPAC では，次のようにな 
っています. 


トラック： 0〜3の4トラック 
セクタ：1〜4の4セクタ 
アドレッシングは次のようになります. 


ラック 

0 セクタ 

1〜2 

:ディレクトリ 


セクタ 

3 

:ハ•ック2の铒性 


セクタ 

4 

: FAT 

ラック 

1 セクタ 

1〜4 

: ユーザ•エリア 


2 セクタ 

1〜4 

: ユーザ•エリア 


3 セクタ 

1〜4 

: ユーザ. エリア（計3ドバイ 


4-3-2 ダンプ • プログラム 


RAMPAC 2のダンプブログラムを次に示します • 

100 •KXX 

110 7 XXX Damp program for RAM PACK 2 
120 m < T-ba*ic > 

130 WIDTH 80iKEY OFFiSCREEN liCLS 

140 PRINT-XKX RAM.PAC 2 Dump **»■iPRINT 

130 INPUT-track <0-3>■|TRACK 

160 INPUT-«»ctor< 1-4) - jBEGIN 

170 F1ELDM0,128 AS A % 9 128 AS B% 

180 FOR SECTOR-BEOIN TO 4 

190 PRINT-TRACK-*|TRACK f •SECTOR-•|SECTOR 

200 Wlt-DSKI»<5 f TRACK f SECTOR) 

210 FOR 1-0 TO 7 

220 PRINT HEXt<I>|-0 i - j 

230 FOR J-0 TO15 

240 PRINT USING • 认 • |RI 6HT^< • 0• ♦HEX^<ASC<MID^<A» f 1X1 ^ 1 t 1)>> .2) | 

250 NFXT J 

260 PRINT* ■ | 

270 FOR J-0 TO15 

280 Z-ASC<hIM<A» f IX164j41,1>> 

290 IF 31<Z AND Z<248 THEN PRINT CHR^<2> | ELSE PRINT ■•- i 

300 NEXT J 

310 PRINT 

320 NEXT I 

330 FOR 1-8 TO15 

340 Wl-I-8 

350 PRINT HEXt<I)|*0 i »| 

360 FOR J-0 TO15 

370 PRINT USING_Mr * |RI6KT^<-0-4HEX^<ASC<MI[H<M f WlXl64j^l i 1>)> t 2> 

380 NEXT J 

390 PRINT* • | 

400 FOR J-0 TO15 

今 10 Z«ASC<MIM<B^ f WlX 1,1 〉〉 

420 IF 31 く Z AND Z<248 THEN PRINT CHR#<Z>| ELSE PRINT".«i 

430 NEXT J 


1:i() 





4 « 入出力装 »' 


440 PRINT 

450 ' NEXT 1 
460 PRim* 

470 NEXT SECTOR 
480 GOTO 150 

この プロ グラムは， DISKBASIC なしで走らせることができます. RAMPAC 関係の命令は ROM 
版の T-BASIC でサポートされているからです. 

RUN してダンプしたいトラックとダンプ開始セクタを人力すればダンプを開始します.人カエ 
ラーのチェックは行っていないので必要なら追加して下さい. 

なお， 32 キロバイトの RAMPAC ではトラック番号が〇〜 31 になります. 

4-3-3 ディレクトリ 

RAMPAC のディレクトリはトラック 0, セクタ 1 〜 2 に格納され，その内容はファイル名 9 バ 
イト • W 性 1 バイト•クラスタ番号 1 バイト • 米使用 5 バイトの 16 八イトとなっています. 

RAM ハ•ックのクラスタ番号はフロッピーディスクと舆 0, セクタをトラックの順に数えていっ 
たもので，次のように表すことができます. 

(クラスタ > =( トラック） X4+( セクタ） 

ディレクトリは，実際には次のように*き込まれています. W 性の鹿味などについてはディス 
クの項を見て下さい. 


TRACK- 0 SECTOR- 1 


ee 

I 

35 

S4 

49 

4C 

32 

20 

20 

28 

20 

10 

t 

55 

34 

49 

4C 

31 

2 e 

20 

20 

20 

20 

i 

4D 

4F 

4E 

26 

20 

2e 

20 

20 

20 

30 

l 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

40 

l 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

30 

l 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

66 

l 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

70 

t 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

8e 

I 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

90 

1 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

A9 

1 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

Be 

1 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

C0 

I 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

D0 

l 

FF 

FF 

FF 

FF 

FF 

FF 

FF. FF 

FF 

E0 

I 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

F0 

意 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


00 04 FF FF FF FF FF UTIL2 

80 0B FF FF FF FF FF UTIL1 

0012 FF FF FF FF FF MON 

FF FF FF FF FF FF FF . 

FF FF FF FF FF FF FF . 

FF FF FF FF FF FF FF . 

FF FF FF FF FF FF FF . 

FF FF FF FF FF FF FF . 

FF FF FF FF FF FF FF . 

FF FF FF FF FF FF FF . 

FF FF FF FF FF FF FF . 

FF FF FF FF FF FF FF . 

FF FF FF FF FF FF FF . 

FF FF FF FF FF FF FF . 

FF FF FF FF FF FF FF . 

FF FF FF FF FF FF FF . 


0 トラック， 3 セクタには RAMPAC あ属性が格納されています. 1 八イトの数値によって属性 
が決まります.この意味はディスクの場合と同様です. 

0 トラック， 4 セクタには FAT が格納されています.これは，次のようになっています • 


TRACK- e SECTOR- 4 

00 i FE FE FE FE 0S 86 07 08 Cl FF FF 6C 0D 0E 0F 16 . 
16 t 11 Cl1314151617181?1A IB 1C ID IE IF 20 . 
28 i Cl FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 夢 
30 i FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF • 
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4-4 プリンタ出力 

4-4-1 LPRINT • PRINT #-2 

プリンタに出力するための命令としては， LPRINT と PRINT #-2 があります. 

出カデータはハ•ソピア内部でバッファリングされることはなく，直接プリンタに出力され，次 
のときに CR / LF の制御コードが出力されます. 

1) LPRINT 文の終わりに：がない 

2) WIDTH LPRINT で指定した一定®のデータ出力後 

2) の場合，出カデータ R の計算には文字コード以外の制御コードも計採していますので注意し 
て下さい.なお ， WIDTH LPRINT 255を実行すると出カデータ«：の計算が無効になります. 

4-4-2 ハードコピー 

画面上のテキストやグラフ ィ ックは COPY キーを押せばドットブリンタ II にハードコピーをとる 
ことができます. 

このハードコビーのフッ クが FFF 7 H にありますので，ここを BASIC や，機械語ブログラムから 
コール すれば，画面表示をプリンタに ハードコビーす ることができます.（ただし，レジスタは保 
存されません） 

COPY キーはこのフックに使用されているので，この FFF 7 H のフックを*き換えれば ， COPY 
キーを他の目的（機械語サブルーチンの呼出等）に使うこともできます. 

次のブログラムはこの フッ クの使用例です. 


10 'XX 

20 HARD COPY ROUTINE CALL 

30 "XX 
46 

30 "X CALL HCOPY 

<S0 "K HCOPY ADDRESS … MFFF7 

lee • ADDRESS SET 
110 / 

120 HC0PY-4<HFFF7 
138 WIDTH 86 
140 CL8 

150 FOR I«5 TO 23 

160 LOCATE S 9 I 

170 PRINT STRINO^<?0 f -«r> 

186 NEXT 

190 LOCATE 10,2 

200 INPUT -XXX HARO COPY Y/N |K 瘳 

210 IF K ♦- 'N- THEN 230 
220 CALL HCOPY 
230 END 


l ： i2 




XX 

KX 


し PRlf/T SUBROUTINE FOR 


-PRINTER 3C 


•INPUT PR.FUNC# A6 PRINTER FUNCTION 
/ destroy val i for CHR^dch 1H) 

/ STATUS is •rror flug • 

• 8TATUS-0 - no «rror 

• STATUS-1 - •yntax 譬 rror 

• STATUS-2 -111» 〇羼 1 function 

IF STATUS THEN SOUND 40,10iPRINT*STATUS-*|ST 
3TATUS-0 I ， ini til is* status 

60SUB 10140 

IF STATUS-0 THEN PR.FUNCW 
RETURN 


0 IF 
B IF 
0 IF 
0 IF 
0 IF 
0 IF 
0 IF 
0 IF 
0 IF 
0 IF 
0 IF 
0 IF 
9 IF 


0 IF 
0 IF 
0 IF 
0 IF 
0 IF 
0 IF 


PR.FUNC^- a CR« 
PR.FUNC«-*LF* 
PR.FUNC ♦- 
PR.FUNCt- B FF- 
PR.FUNC^- B CAN* 
PR.FUNC^- - SO* 
PR.FUNC#--SI» 
PR.FUNCt--DCl- 
PR.FUNC^-*DC3" 
PR.FUNC#--B8* 
PR.FUNC^« B HT* 
PR.FUNC ♦- -GS_ 
PR.FUNC^- - US* 
ESC»«CHR^<^H1B) 

PR.FUNC^-*PAICA* 
PR.FUNC ♦- _PROP_ 
PR.FUNC ♦- -MIN - 
PR.FUNC ♦- -E し ITE^ 
PR.FUNC•1DOT* 
PR.FUNC^«*2D0T* 
PR.FUNCW3D0T* 


THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 


iRETURNi 
l RETURN i 

I RETURN 雪 

IRNi 


LPRINT CHW(ftcHD) | 

LPRINT CHR ♦ くも cHA> | 

LPRINT CHR^(^HB)| 

LPRINT CHW(^HC) | 

LPRINT CHfH<^cHi8> | iRETURHi" 
LPRINT CHR ♦ 《豁 HE>| iRETURN« / 
LPRIhfT CHR^(^HF) | iRETURNS 
LPRINT CHR^(^Hli)| iRETURNi^ 
LPRINT CHW<^H13> | 1 RETURN 1 / 
LPRINT CHR^<kcH0) | iRETURNS 
LPRINT CHR^<^H9)| iRETURN 意 # 
LPRINT CHW<%cHlE> | iRETURN^ 
LPRINT CHR^<ftcHlF>i iRETURNi" 


THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 


LPRINT ESC，| i RETURN i" 
LPRINT ESC^i-P*| iRETURNi" 
LPRINT ESC 拿 |_Q_|iRETURNi/ 
ESC^|_E ■丨 iRETURNi" 
ESC^i* \ m |iRETURNi/ 
ESC% 9 m 2 m 1.1 RETURN i 7 
ESC^|*3* | i RETURN i A 


LPRINT 

LPRINT 

LPRINT 

LPRINT 


IF PR.FUNCt**4D0T* THEN LPRINT ESCt| B 


RETURN 


c 毳 rrig# return 
1 in* 

vertical tab 
iorm 
C4nc*1 
shift out 
•hift in 

d»vic« control1 

3 

btick sp*c« 
horizontal tab 
group «»p*rator 

unit ft 翁 p 羲 rator 

paic* print <10 cpi) 
proporttonal print 
17 cpi print 
•1 it* print <12 cpi) 

1 dot spac« 

2 
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10360 

10370 

16380 

10390 

10400 

10410 

10420 

10430 

10440 

10430 

10460 

10470 

10480 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


PR.FUNCt--500T* 
PR.FUNC^-*6D0T B 
PR.FUNC#--HIRA B 
PR.FUNC •麵 _KATA_ 
PR.FUNM--NGRA* 
PR.FUNC^- B OGRA B 
PR.FUNCt-VON- 
PR.FUNW-VOFF* 
PR.FUNC^-MNC* 
PR.FUNC^- B LOO* 
PR.FUNC^--1/6- 
PR.FUNC^-*1/8- 
PR.FUNC•N/144* 
SC*|-T-|N iRETURN 
10490 IF PR.FUNC4- - FOWARO* 
10900 
10510 
10320 
10530 
10940 

iesse 

10360 


THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN し PRINT 
THEN LPRINT 
THEN LPRINT 
THEN IF N<1 



THEN LRRINT ESC 瘳 |■|I RETURN 
THEN LPRINT ESC«|«6 - |iRETURN 
THEN LPRINT ESC 拿 | ■ む ■|iRETURN * ， hi 
THEN LPRINT ESC.||iRETURNi ， katakan* 

THEN LPRINT ESC ， i ■㈣ ■|iRETURNi ， naibu gr. 

ESC~_S_ |NiRETURN 〆 dot gra| 

ESC^|*!■|iRETURNi 7 Kyoutyou moji %i t«i 
ESC^jCHR^<icH22> | iRETURNi / off 

ESC,|• 【 ■|iRETURN * ’ incr*m»nt*1 mod* 

ESC^|* 3 *|iRETURNi / 1ogicAl ft«»K mod* 
ESC*|*A B |iRETURNi^ \/6 m kaigyo 
ESC«|-B- | iRETURNS 1/0" kmigyo 
OR N>9? THEN STATUS-2iRETURN ELSE LPRINT E 

i / N/144 - kaigyo 

THEN LPRINT ESC^i*f i iRETURNi 


/ 4oward kaigyo 
URNi^ r«v»r«# i 


IF LEFTt<PR.FWC# f 3)REV THEN LPRINT ESCS| B r» | iRETURNi^ r«v»rs« kaigyo 
IF PR.FIWC»-_HTSET_ THEN LPRINT ESC| • い！ iRETURNi ， horizontal tab 
IF PR.FUNC ♦- •HTRESET* THEN LPRINT ESCt| s >•|tRETURNt^ rm%mt 

IF PR.FUNCWKTCLR_ THEN LPRINT ESC ♦丨 _8 •丨丨 RETURNi ， *11 cl •羼 r 


IF PR.FUNC^-*UON" 
IF PR.FUNC^- B UOFF- 
IF PR.FUNC#«-LEFT- 
i RETURN 

10370 IF PR.FNNCt-* l^V 
10380 IF PR # FUNC^-*2UWV 
10590 STATUS-1iRETURN 


THEN LPRINT ESCt|-X* 11 RETURNS und«r Un« on 
THEN LPRINT ESC 嗪 |_Y_|I RETURNi ， oii 

THEN IF N<0 THEN STATUS-2IRETURN ELSE LPRINT £SC%i m [ 

i / 1 譬 ft margin «*t 

THEN LPRINT ESC^|•>•|iRETURNi ， k4tahouKow inji 
THEN LPRINT ESC 嗪 j■<•jiRETURNi ， ryouhoukou inji 


•|N 


PR . FUNCS に命令を人れて GOSUBIOOOO とすれば， PR . FUNCS の内容に対応するコントロー 
ルコードが出力されます. 

例えば， PR . FUNC $= W FF " ならば，フォームフィードを行います. 

印字をバイカにしたければ， PR.FUNCS =， PA 1 CA ", ブロボーシヨナルにしたければ， PR . 
PUNCS = ” PROP " としてサブルーチンを呼べばよいのです. 

W N /144" でレフトマージンをセットし，ドットグラフィック印字では， N にそれぞれ改行幅, 
印字開始位 S , バイト数を人れてからサブルーチンを呼んで下さい. 

4-4-4 プリンタ II の逆スクローノ嗯能を使う 

ブリンタ II の逆スクロールを利用した同じページ内の任意の場所に出力するサブルーチンを 紹 
介します. 

80行から130行の設定ルーチンと1000行からのサブ/レーチンがそう です. X ， Y にそれぞれ行と 
列を人れ， CHARS に害きたいキャラクタを入れてサブルーチンコールして下さい. 

また，このサブルーチンを利用してグラフを*かせてみました. 

必ずプリンタのスイッチを ON にして改ページしてから，実行して下さい•そうしないと ホーム 
ボジシヨンがずれてしまい，出力が狂います.また，逆スクロールさせるときには負担がかかり 
ますので，あまり出力済の紙をためないようにして下さい. 

10 'XXX 

20 'XXX DOT PRINTER II SAMPLE 
30 mx 
40 " 

30 WIDTH LPRINT 253 

40 DEF FNF<X>-XXX 丨， DEFINE PLOT FUNCTION 

70 / 
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86 
90 
00 
10 
20 
30 
40 
50 
60 
70 
80 
90 
200 


DEFINE PRINTER FUNCTION 


LREVI 

CR^-l 


•ERSE^-CHW < &H 1 B> ♦ _ r ■ 
«CHW< 13) iLF^CHR^< 10 〉 
LMAX-70 


/ 


/ INITIAL OUTPUT CRT 

/ 

WIDTH 80iCOLOR 7 f 0iCLS 

PRINT TAB<20 >| •くく DOT PRINTER II SAMPLE PROGRAM >>> 
PRINT 

INPUT - SET PRINTER AND HIT [RETURN] KEY-|W^ 


210 PRINTiPRINT 
220 • 

230 7 START 
240 y 


250 X-20iY-2iCHARX-Y PLOTTER S^ViP し E >>_ 
260 OOSUB 1000 
278 " 

280 • WAKU 


290 ' 

300 Y-10iX-41iC^R^-*<0 f l)* iGOSUB 1600 

310 X-40(FOR Y-10 TO 65iI - iOOSUB 1000 iNEXT 

326 X-41iY«61iCHAR»-*<0 f 0>■iOOSUB 1806 

330 X-10lY-6ilC^R^-*<-l f 0) * iGOSUB 1000 

340 X-10 i Y-60 i C^R^-STRINO»< 60 t ■- * ) 160SUB 1000 

350 X-70iY-61iC^W- b < 1,0) • I OOSUB 1090 

360 / 

370 " 

380 / MAKE FIG. 

390 ' 

400 FOR X-10 TO 70 
416 Xl-<X-40)/30 

4*20 Y1-FNF<X1) 

430 Y-INT<60-50*Y1) 

446 CHAR^-*»* 

4se oosub iee6 
460 NEXT 

470 し PRINT し FOWARD 嚷 
480 LPRINT CHR ， <12> 

490 END 
1000 ' 

10 10 / MCWE HED FOR X f Y k PRINTOUT CHAR 毒 
1020 / 

1030 IF HEDY-Y THEN 1090 

1040 IF Y>HEDY THEN YDIR-1 ELSE YDIR—l 

1039 W-HEDY^YOIRiIF M< 1OR W>LMAX THEN 1 186 

1060 IF YDIR>0 THEN し PRINT LFOWARW |LF« | ELSE し PRINT 

1070 HEDY-W 

1080 IF INT<Y>OHEOY THEN 1030 
1090 LPRINT CRt|TAB<X) |CHAWj 
1100 RETURN 





リンタ機能一 R 表（ドットプリンタ D ) 


KSC : CHRS (27) 

ZR : CHR $ (13) 印字 
LF : CHR $(10) 印字 
[•下： CHR $(12 H - 


改行 

送り 


印字方向;) 

ジカルシーク 


KSC 


双方向 


クリメンタル 


* 方向 

化—ム M 


改行幅の切換え 


1 / 6 " 

12 dot 


ESC +' 


ESC +， 


1 / 8 " 

9 dot 


( \ ESC + 

( n /144") 


2桁10進数 


( n - 1が半ドット分に相当) 


n 行改行 I CHR $ (31) +CHRS (16 +n 


a 


印字文字の切換え^) 

拡大 

^mT\cHRS(u\ _ 

，ロポー y —/ ( 16 〇) 

杯除 ? f C 


LPHINTCHRS (27) 

" soi 2 r 


/^\拡大 J 
广 、\ CHR $(14)_ 




f 


( 強調印字 D 


ESC +' 丫 


并通印字 


\、ーノ / CHR $(15 


m 


拡大 



随15)解 


+ CHHS (34. 


改行方向切換 


順方向 


逆方向 


ESC +， 


ードの切換 


ESC +” 


ESC +， 


英数 




#通印字 ][ 

、 == y ^ sc +、' 








f 水平タフ ) 


3 桁の 10 進数（例 040) 



クリアする坳所のみ 


G 垂直タブ） 


=ドットスペース ） 

ESC+CHRS (n) 1 ^6 


(レフトマージン) 
-3 桁 10 進数 



7 6 5 4 3 2 1 0 



(DIP スイッチ機能） 


チヤネル 


VFU 設定 CHK$ <29> 0 0 0 


01 GS コード 


A 


、C 


、A 


f X I ° ° ° ° ° 1 )TOF 

VxlXXXXXX ノ 

f x 1 

Vx i 


0 0 0 0 0 0 

x x x x x x 


BOTTOM 


/X 10 0 0 011 \ 

\X l X X X X X X ) 

67 ( x, 0 0 0 0 0 Jtof 

VxlXXXXXX ノ 


CHR$ (28) 


0 


0 RS コード 



SW1-1 I SW 卜 2 I SW1-3 







国別 fir 様切換 

TOF 問 



印字指令 

コード 

BB 


wm 

tcivibl 




— 

■HU 

■ 


ON 

IH9B 

mam 

mEm 

■n* 


無効 



US 

mm 

mm 

■an 



■ifeM 

■Da 


UK 

IBM 


KB 


: 



JHHHI 

OFF 

GE I 

mm 

m 

WBM 


有効 


CR のみ 

CR 


WSSM 


m 

KB 







r~ 

SW2-1 

SW2-2 


SW2-5 

SW2-6 

SW2-7 



BD 



7 




有効 



mm 

■■ 



m 


m 

DL 

■ 


mgmBgmEm 


MM 

WEM 





OFF 

0 

無効 

mm 

B 







^ - 

mm 

■ 

El 

■H 

■n 

mm 


プリンタの選択 セレクト解除 

ESC+'、a cT ESC+CHRS (%) 


〇 〜3 


図4 一 4 一 1 ( b ) 
















































第 5 章 
キー入力 


5-1 プログラマブル.ファンクションキー 
5-2 キー入力 

5-3 リアルタイ ムキー スキヤン 
5-4 コン トロールキー 





第 5 章キ ー 入力 


FD70 I FF FF A6 4? 4C 43 33 0D 

FD8e I 00 00 4C 4F 4144 20 22 

FD90 I 68 60 53 4136 43 20 22 

FDA0 I 60 08 3F 34 49 4D 45 24 

FDB0 I 00 90 45 44 4? 54 20 2E 

FDce i ee ee 4B 45 5 ? 20 ee ee 

fdd 0 1 ee ee 4C 4 ? 53 54 20 00 

ee ee 52 55 4E so ee ee 


FILES.EB 

LOAD. - .DF 

S^E ノ . FE 

?TIME. . 3C 

EDIT.2E 

KEY.C<5 

LIST. 29 

RUN … ； .DF 


T - BASIC ( Verl . l ) を対象に，ブログラマブル•ファンクションキー，キー割込，リアルタイム. 
キース キャン等，キー人力についての解説し，合わせて，各人力命令の比較をしました. 

5-1 プログラマブル • ファンクションキー 

T - BASIC では，8個のファンク ショ ンキーを自由に定峩して使うことができます•さらに ， LABEL 
キーで，ファンクションキーの内容を画面に友示することができます.また，初期のマニュアル 
には港かれていませんでしたが ， KEY ON でキーの内容が表示され ， KEY OFF で表示を消す 
ことができます. 

5-1-1 格納状態 

范源投人時には，ファンクションキーは次のように設定されています • 


k«y 1 i«t 

1 FILESm 

2 LOAD • 

3 SA^»E - 

4 ?TIME^m 

5 EDIT .m 

6 KEY 

7 LIST 

8 RUNm 
Ok 


ファンクションキーの内容は，メモリ上には， FD 70 〜 EDE 0 H に格納されています， 


00000000 

00000000 

00000000 

00000000 

00800000 

00000000 

0000008 0 
00000000 

00008080 

00000000 

00000080 

00000009 

09000000 

00000080 

000DD000 

00000000 












二ものか T - BASIC インタブり夕にも書き込まれています.そのアドレスは，次の通り 


\ SIC ( ROM 版 ） Verl.O : 00 F 0 〜 016 OH 

Verl . l : 00 C 2 〜013 0 H 
( DISK 版） Verl . l : 00 DD 〜 013 FH 

ファンクションキーの定義 

，ョンキーは，ダイレクトモードで定義する方法の他に，ブログラム中でも定義する 

け. 

次のブログラムを乎げます. 


SAMPLE 



80 KEY 
90 KEY 

00 


•WIDTH 00*^CHR^<13) 
■COLOR 7,0_+CHW< 13> 
•L0AD^CHR^<ftcH22) 
•SAVE*4CHW<ScH22> 

•LLIST ■ 

■EOIT .-4CHR^<13) 
CHW(^H1E)4CHW<3)4-LIST 
m RUN m *CHR%< 13) 

ST 


CHW<5> 


ヨンキーを定義するとき， Ver 1.1 と DISK 版では • 文字変数今伸うこキがでキ#す 


代用する 


使用する 


120 

138 

146 

150 

160 

170 

180 

199 

206 


KEY ON 
PRINT 









策5瘃キー入力 


290 

300 KEYAD-&HFD72 

310 INPUT* INPUT NUMBER OF PF KEY < END - 0 > i m f KEYN 
320 IF KEYN く 0 OR KEYN>0 THEN 316 
330 IF KEYN-0 THEN END 

346 INPUT- INPUT FUNCTION FOR KEY •••KEYF ， 

330 KEYAD1-KEYAOt < KEYN-1)X16 
366 FOR I_1 TO LEN(KEYF^) 

370 POKE KEYAD1 ♦ 卜し ASC く MIW<KEYF ♦ 山 1” 

380 NEXT I 

390 FOR I-LEN<KEYF^>^1 TO16 
400 POKE KEYAD1+I-1,0 
410 NEXT I 
420 KEY OFFiKEY ON 
430 GOTO 3l« 


このブログラムでは， Verl . O では，直接メモリに書き込むことによって，文字変数を使えるよ 
うにしています. 

5-1-3 ファンクションキー害 IJ 込 

DISK 版では，ファンクションキーを割込キーとして使うことができます. 

ONKEYGOSUB で，ファンクションキー割込の処理サブルーチンを指定し， KEY ( O ) ON 
で割込を許町します.また， KEY ( 0) STOP で割込を保留し， KEY ( O ) OFF で禁止します- 
この機能を利用して， ファンクシ 3 ンキーを鍵盤のように使ってみました • 


10 "XX* 

20 /XMK KEY INTERRUPT SAMPLE 

30 1XX 

lee WIDTH 36iSCREEN IiCLSiCO し OR 3 
116 PRINT TAB<7)ONEKEYBORO 
115 PRINT iCO し OR 3 
120 PRINT TAB<10>|« PF1 tb m 
130 PRINT TAB<10> j* PF2 I レ 
140 PRINT TABC 10) \ m PF3 12 
190 PRINT TAB<18)|* PF4 i?t 
160 PRINT TABC 10) |» PFS i ソ 
170 PRINT TAB< 10) |- PF6 I’ 

180 PRINT TABC 10> |* PF7 i シ 

190 PRINT TAB< 10) i m PF8 

195 PRINT 丨 CO し OR 7 

197 PRINT TAB< 10> | B END...[RETURN)■ 

200 ON KEY OOSUB 240, 230 1 260,270 f 280 f 290 f 300 f 310 
216 KEY <0) ON 

220 IF 1NKEY^-CHR^<13> THEN KEY (0) OFFiEND 
230 GOTO 210 

240 KEY (0) STOPiNHILE INP<42)<>80 iSOUND 48 f 2iWENDiRETURN 

230 KEY <0> STOPiWHILE INP<42><>80 iSOUND 50 f 2iWENDiRETURN 

269 KEY (6> STOP iWHILE INP<42> 080 «SOUND 52 f 2iWENDi RETURN 

270 KEY <0) STOPiWHILE INP<42><>80 iSOUND 53 f 2iWEND«RETURN 

280 KEY <0> STOPiWHILE INP<42)<>80 iSOUND 55 f 2iWENDiRETURN 

290 KEY <0> STOPiWHILE INP<42><>80 iSOUND 37 f 2iWENDiRETURN 

300 KEY <0) STOPiWHILE INP<42)<>80 iSOUND 3? f 2iWENDiRETURN 

310 KEY (0> STOPiWHILE INP<42)<>80 iSOUND 60 f 2iNENDIRETURN 


このブログラムでは，左端の PF 1からドレミファソラシドの音がするようになっています. 
ファンクションキー割込は，このように機能を定義しておけばブログラム中でも割込で音を出 
す等の処理をすることが可能です. 


//•? 



5-2 キー入力 


プログラム中でよく利用するキー人力命令としては， INPUT , INKEYS ， INPUTS，LINE 
INPUT 等があります. 


5-2-1 INPUT 


INPUT では，とくに指定しない限り人力要求のが出力されます. '、 V を画面に残した 
くないときは，次のようにブロンブトのあとに'"(々ンマ）を付ければ？が出ません. 


10 INPUT "A-* f A 
20 PRINT A 
RUN 

A-1.23 

1.23 

Ok 


また，数値変数の人力の際に数字以外の数を人力すると，？ Redo from start が表示され，2 
行下で再人力となります. 

数値変数を人力する際に，39桁を越えた数を人力することはできません.また，文字変数では， 
254文字を越えた分は無規されます.次にあげるブログラムを実行してみて下さい（ただし ， ROM 
版では， Overflow ではなく， ？0 V となります） • 


16 INPUT f A 

20 PRINT A 

30 INPUT 瘳 iPRINT 

40 PRINT A 擊 

RUN 

A-1.234367890 123456789012343678901234567890 

Ov«rf1ow 

?R»do +rom start 

A-l 





Ok 


また， INPUT 命令で'"を人力したいときは，次のように人力する文を''ダブルクオーテー 
シヨン〃 でく くれば可能です. 


16 INPUT *A-» f A 
20 PRINT A 

30 INPUT _A^-_|A 秦 IPRINT 


111 














浓 5 睾キ入力 


40 PRINT At 
RUN 
A«1 
1 

A ^-? m A f B m 

A，B 

Ok 


5-2-2 INPUTS 


INPUTS は， 人力する 文字数が指定で き， また， カーソルコントロールキーの人力も 可能です. 
メニューの人力の 際な どに 便利な命令といえます. 

また，エコーバックしませんが，それを利用して次のような使い方もできます. 


10 " XK * 

20 INPUT. S^iPLE 

30 

100 CLS 

110 LOCATE 10，e 

120 PRINT_i、 イサ/シ■クI、 tZ4Ql i/777) _ 

130 PRINT* Color cod» 9 二 a ウリ■クシ，クデ 9 イ に 


40 

50 

LOCATE 31, liPRINT* 
A^-INPUTt<1) 

•1 

I LOCATE 31,1 

60 

IF At--0* 

THEN 

PRINT - 

ク〇 

_ | 丨 GOTO 

230 

70 

IF A 秦 1* 

THEN 

PRINT- 

It 

_ | i GOTO 

250 

290 

80 

IF 

THEN 

PRINT- 

ID 

• | lOOTO 

99 

IF A ♦- -3* 

THEN 

PRINT- 

d”， 

■ | i GOTO 

250 

200 

IF 

THEN 

PRINT - 


- i lOOTO 

230 

210 

IF A ♦-*3 # 

THEN 

PRINT - 

S7 ソ〇•丨 lOOTO 

250 

220 

IF 

IF 

THEN 

THEN 

PRINT- 

PRINT* 

f4Q 

•|iGOTO 290 

230 

シ〇 

■|lOOTO 230 


240 GOTO 140 
250 B#-INPUT^< 1> 

260 IF MOCHR#< 13> THEN LOCATE 31 f liA^-BtiOOTO 160 
270 COLOR t VAL<A 瘳〉 

280 END 


5-2-3 INKEY$ 


INKEYS は， キーボードから 1 文字 人力す る間数ですが，実際には，先行 人力がバッファにた 
まっているので，正確には''キーボードバッファから1文字得る命令•とした方がよいでしょう. 
ここで，先行 人力に ついて実験してみましょう. 


10 FOR 1-1 TO 10000 1 NEXT I 

20 SOUND 40 f 20 1 FOR 1-1 TO 1006 xNEXT 

30 A ，《 INKEY 黎 

40 IF AW THEN 30 

50 PRINT M f LEN<W> 


この ブロ グラムを実行して，適当なキーを押し絞け，音がしたら指をキーから離します.そう 
すると，キーバッファに何文字ためられるかを調べることができます. 

実行すると，31文字までたまることがわかります. 
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入力命令の比較 


げたキー人力命令の比較表を次に示します. 


NPUT 


NPUT 



NPUTS 


待つ 


数 W 変数: 39 桁以内 
文字変数 


254 文7以内 


HKTUHN 


数《変数 

文ネ変数: 


『 ST () P )1 
(CTRL 


中断 


ak 時の CONT 
る再開 


05-2-1 キー入力命令比較表 


リア 


， FFO 卜 FF 20 H の31バイトとなっています. 

んバッファにためて必要なときに（冽えば， INPUT , INKEYS 等 h 
1:うになっています. T - BASIC では，プログラム実行中でもバッフ 
キーのアスキーコードがためられるために， INPUT を実行したときに以前に打った 
いて不快な思いをすることがあります. 
















第5« キー入力 


このようなことを防ぐためには，キーバッファを0で埋めてしまえばよいのです.次のブログ 
ラムは，キーバッファの中身を調べるブログラムです. RUN して STOP 以外のキーを押してみて 
下さい.キーバッファの内容が表示されます.止めたいときには STOP キーを押して下さい. 


10 

20 ZXXX KEY BUFFER SUMP し E 

30 

100 BUFFER-^HFF0 1 

110 WIDTH 80iCO し OR 7,0*KEY OFFsCLS 
120 WHILE INKEY 拿 <>_■iWEND 
130 FOR い BUFFER TO BUFFERO0 
140 PRINT CHR^<PEEK<1)>| 

150 NEXT 

160 PRINTiGOTO 120 


キー バッファを〇で埋めるとどうなるかを試してみましょう. 

何もしない場合と，〇で埋めた場合の両方を调ベることにします.次のブログラムを実行して, 
W ： 較してみましょう. 


10 
28 
30 
ee 


e 

e 


2 
30 
40 
56 
60 
70 
80 
90 
2ee 
210 
220 
230 


XXX 

XXX 

XXX 


KEY BUFFER CLEAR SfiiAPLE 


WIDTH 80!COLOR 7 t 0iKEY OFFiCLS 
PRINT*K*K C1**r i/t4 卜 ♦ XXKX* 
PRINTiPRINT* ffbOt K»y 9 
FOR 1-1 TO 100001 NEXT 
print* 3 レ ^ •ウ its yr 今マリ 77- 
INPUT A 拿 * PRINT 

PRIKT-XKX C1**r シクト穿 1 、 *XXX« 
PRINTiPRINT* ，穿トウ少 K«y 9 オシ，！ 3 ウ _ 
FOR 1-1 TO 100001 NEXT 
PRINT ■ ラ 7 ソ 71 ン _ 

FOR 1-BUFFER TO BUFFER+31 丨 POKE ! 

INPUT A 瘳 

END 


.0INEXT 


XXX C1«*r リナ 4 卜 t XXXX 

ffhOt K»y 9 
m 3 m l ^72 
? LKJ|LKO|LKD|LJOiPHEMUFPI PUTJH 

XXX C1«*r シタト tiN XXXX 

K 譬 y 9 

D m 2 h 今 7 1 ノン 

? 


5-3 リアルタイ ムキー スキャン 

5-3-1 キーマトリクスを調べる 

INKEYS では，キーバッファに先行入力がたまってしまうので，ゲーム等で要求されるリアル 
タイム キース キャンは困難です. 

先行人力を除けばできないことはないのですが，速度が遅くなリます. 

次のブログラムは， INKEYS を使って，キャラクタ （20 を動かす例です. 


00 X-l iNIDTH 80ICLS 
10 A»-INKEY»iIF THEN 140 

20 LOCATE X-1,CSR し INiPRINT m Z m | 
30 X-X+liIF X-89 THEN PRINTiX-1 
40 FOR 1-1 TO 166 iNEXT 
38 GOTO 116 





このように， INKEYS を使ってキー入力を行うと，キーを離しマ 
先行人力をとり除くため，60行に， 

60 WHILE INKEYS " : WEND 
を人れると先行人力は除かれますが，動きが不自然に遅くなリま 
このように， INKEYS ではうまくキースキャンすることは困難 
リアルタイムキースキャンには，機械語を使用するのがよいの 
ドスキャン信号と人カデータについて説明しておきます. 

バソピアでは，キーボードサーチ用に Z 80 PIO が使用されてい 
次の図表はキーボードスキャン信号と人カデータの内容を示し 



05 — 3 — 1 キーホードのコントロール内容 （Z80PIO) 

この図表のように，キースキャン信号は PIO のボート A の A 3 〜 A 0 から出力され， A 6 〜 A 4 によっ 
て各ブロックに振り分けられてマトリクスに12の端子に出力されます. 

通常のキー打鍵の監視はすべてのスキャンラインをアクティブにして，ボート B のいずれかの 
端子が LOW レベルになって発生する割込により行われています.この割込が発生した後，各スキ 
ャンラインをスキャンしてキーコードが求められています. 

たとえば， KSB ラインをスキャンして，ビットデータが EFH なら，キーの M が押されたことが 
分ります. 

ポート A に出力されるスキャン信号と，ボート B に人力するビットデータの関係は次の図表を 
見て下さい. 











図 5 — 3—2スキャン信号とビツトデータ 

この図表を実際に確認するために，サンブル•ブログラムを作ってみました. （ STOP ) 以外のキー 
を押すと，押されたキーに対応するスキャンラインのビットが〇になります（ただし， BASIC なの 
で反応は遲くなリます）. ESC キーを押してしばらくすると止ります. 






n 


20 LOCATE 10,0iPR!NTM【KEY SERCH 
30 OOSUB 270 
40 QOSUB 426 
30 FOR 1-0 TO (cHB 
60 OUT ^H30,SCANLINE<I> 

A-INP<ftcH31) iA-INP<ftcH31> A 

LOCATE 18 f I42 iPRINT USING__M_ - |A| 
FOR J-7 TO 6 STEP -1 

B.DAT—<<BIT<J) 州 D A)<>0) 

PRINT B.DAT| 

NEXT J 


PRINT 
NEXT I 


170 
180 
190 
200 
209 

2ie 
220 
230 

240 A#-INKEY 瘳 

250 IF A^-CHR#<27> THEN OUT &cH30 9 6<H7 FiEND 
260 GOTO 190 
270 ^ 

280 PRIMT* KS 7 6 S 4 3 2 

290 PRINT - K S 8 

360 PRINT- K S I 

310 PRINT* K S 2 

320 PRINT* K S 3 

330 PRINT* K 8 4 

340 PRINT- K 6 9 

330 PRINT - K S 厶 

360 PRlhTT* K S 7 

370 PRINT - K 8 8 

380 PRINT- K 8 9 

390 PRINT* K S A 

400 PRINT- K S B 

410 RETURN 
420 "K 

430 1 S CELINE 
440 ^ 

430 DIM 8CANLINE<11) f BIT<7) 

460 FOR 1-0 TO 2 
470 HI0H-2 A I 
480 FOR J»0 TO 3 
490 L0W-2 A J 

300 SCANLINE<IJ>-HIOHX16+LOW 

910 NEXT J 
320 NEXT I 
330 FOR 1-0 TO 7 
340 BIT<I>-2 A I 
350 NEXT I 
560 RETURN 



5-3-2 機械語を使ぅ 

前述のとおり，リアルタイムでキー人力を使用するには • 機械語を使うのが一番適当です. 
そこで，機械語•キースキャン•ルーチンを作ってみました. 

次のブログラムは，テンキーの2，4, 6，8が押されているか調べ，それに応じて画面上の 
@ (アツトマーク）を動かすものです. 


ie 7 xxx 

20 KEY SCAN < hWCHINE し MGUAGE ) 

30 "XXK 

100 CLEAR f ftcHEFFF 
110 KBL ♦- *3 ■iKBD^-* • 

120 SCAN«^HF000iIF SC^<8 THEN SCAN»SC^+2 A 1<S 
130 KBA-SCAN+21 
140 KBB-SC^H22 
130 

160 SET MEMORY 
170 


150 







策キー入力 


180 

POKE SCAN t 

6rHFS 

霣， 

PUSH 

AF 

190 

POKE SCAN+1 .^H3A 


し D 

A，KBA 

200 

POKE SDCW+2 , 

KBA-IhfT<KBA/256) X256 

I / 



210 

POKE SCAN+3 • 

INT(KBA/2S6) 

書， 



220 

POKE SCAN+4 

&HF3 

貧 / 

DI 


230 

POKE SCAN+3 , 

tcH03 

| / 

OUT 

30H 

240 

POKE SCAN+6 

&H30 




250 

POKE SC^+7 

hcHFB 

曾 / 

EI 


268 

POKE SOW 8 

bcHOB 


IN 

31H 

270 

POKE SCAN+9 

&cH31 

| f 



280 

POKE SCAN+10 

&HEE 

1 4 

XOR 

0FFH 

290 

POKE SCAN+11 

&HFF 

會 / 



300 

POKE SCAN+12 

&cH32 

| / 

LD 

KBB f A 

310 

POKE SCAN+13 

KBB-INT<KBB/256)X256 




320 

POKE SC^+14 

INT<KBB/256) 




330 

POKE SCAN+15 

^H3E 

會 / 

LO 

A,7FH 

340 

POKE SCAN+16 

&H7F 

耆 / 



350 

POKE SCAN+17 

^H03 

• / 

OUT 

30H 

360 

POKE SCAN^ 18 

レ H30 

1 / 



370 

POKE SCAN+19 

歙 HF1 

f / 

POP 

AF 

380 

POKE SCAN+20 

&HC9 

1 / 

RET 



390 "X 

400 7 * START 


410 

420 WIDTH 80i C し Si CO し OR 7,0 
430 XX-40 iXXX-XV. i V/.-12 i YYX-YX 


446 LOCATE XX f r/. t PRINT* «• | 

490 POKE KBA>H12 

460 IF TIME-OVER- 120 THEN 420 

470 CALL SC^4 SCAN LINE-i 

480 IF PEEK<KBB)-^<H4 THEN YV/.-r/.^ 11GOTO S40 

490 IF PEEK<KBB)-^H10 THEN XXX-XX- 1 iGOTO 340 

see IF PEEK く KBBXH40 THEN XX»XV^ 1 I GOTO 540 

310 POKE KBA f ^H14 iCALL SCAN l" SCAN LINE-2 

526 IF PEEK(KBBXH1 THEN YYX-V/.-1 IOOTO 340 

936 GOTO 450 

940 LOCATE XX f YV. iPRINT* .• | 

550 IF XXX< 0 THEN 580 

360 IF XXX>78 THEN 380 

370 XX-XXX 

380 IF YV/.<0 THEN 440 

390 IF YYV.>24 THEN 440 

600 rX-YYV.iGOTO 440 


5-4 コン トロールキー 


5-4-1 コントローノレ•キャラクタ 

コントロール •キャラクタはキャラクタ コー ドの 01 H から 1 FH までのキャラクタで，この中には 
使用されていないものもあります. 

プログラム中でコントロールキャラクタを使いたいときには ， PRINT CHR $( n ) とすれば使う 
ことができます.例えば ， PRINT CHRS ( 7 > とすればベルが鳴ります. 

コントロールキャラクタを見たいときにはファンクシヨンキーに定義して， LABEL キーでファ 
ンクシヨンキーの表示を見ればよいでしよう. 

5-4-2 コントローノレ•コードー览 

コントロール.コードとシンボルとキー，機能の対®は次のようになっています. 
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Q d 閉 11111 BBZEQ3HB UDIIE^H 




ion (伝送!！/ 


ビ送： MW 柁张 


I ふ】 


■ TB 1 

■MBI 

nai 

■mi 

t : ^ jUTTO ^ n —— 

rmi^A^i し ^ r^j: 




DBB 903 ESS ^^ SE ^^^3^ Sm [ 

ED Q B3 B^SSS 33111111111 H 
jHffljRjffnnffl 

Q E2 QSBSSmilllimH^^H 

mma 


mmmsMwammmm 


s 

« f 參終馆 

字*挟 

y 













第 B 章 

漢字入出力 


ディスクを使う 

漢字 R 0 MPAC 2 
直接プリンタに出力する 





第 6 章漢字入出力 


6-1 ディスクを彳吏う 

6-1-1 漢字ノくターンと漢字ファイノレ 

澳字1字は 16 x 16 ドットのドットバターンで構成されています.このハ•ターンのデータは2バ 
イト X 16 の32バイトデータになっています.次の図に示すように，2バイト X 16 の中に漢字1字 
が表示される形を示し，数字はパイト位」 ft : を示します.また，各1ビットが1ドットに対応して 
います. 


漢字コード c = o & K 1601(=& H 682) 



漢字パターンのファイルは， T - DISKBASIC のシステムデイスクの19トラックから34トラック 
を占め，その中に3666字分のバターンが格納されています. 

アドレッシングは次の図のようになっています.また，途中の未定義部分 （8 区1点.〜15区19点, 
48区1点〜83区94点，87区21点〜94区94点）は，指定してもエラーは出ませんが空白を 


•出力す 






けです. 


1 

— 

ひらがな，カタカナ 

7 

- f 

16 

JIS 第一水準漢字 

47 

84 

- 1 

外字 

87 

区 

1 

英字，数字，記号 

区 

94 

区 

1 


区 

94 

区 

1 


区 

20 

点 

658字分 

点 

点 

3008字分 

点 

- 

点: 

302字 

点 


I I III 

19-1-1 22-0-3 22-0-3 33-1-11 33-1-11 34-1-16 

+ 0 バ仆目 +32 バ仆目 +64 バ仆目 +32 バ仆 I ! +64 バ仆 H +224 バ仆目 

図 6— 〗 一2 漢字バター ン ファイル 



6-1-2 漢字コードの内部表現 

i 奥字を選択する方法としては次の2つの方法があります. 
例「亜」を出力する •数値で表す. 

PUT @(10, 10)， KANJK 1666) 


•漢字コード （& K , & J をつけて）表す. 
PUT ® (10, 10), KANJK & K 1601) 


いずれの方法でも，インタブリタ内では数値として扱われています • 漢字コードの内部値は， 
256〜9091となります. 




I (区#号- 1)*94 + ( 点番号-1> 
i (区 コードー 33) *94+(点 コードー 33) 
I 区#号*94 +点番号+161 | 

i 区 コード* 94 +点 コードー 2879 1 


+256 


(256 〜 9091) 


(例> • 1区1点 (& K 0101) ……256 
• 16区1点 (&J 3021) ……1666 


( = 94+1 +161) 

( = 48*94+33 — 2879) 
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廣す入出力 


10 C -1666 

20 PUT ©(10, lO ) KANJI ( C ), PSET 

これは （10,10) の位*に 16 区 1 点の''®"を表示する. 

図6— 〗 一3漢字コードの内部表現 


6-1-3 ディスクからの入力 


ディスクから漢字パターンを人力するには，漢字パターンの内部値から，ディスク上の格納ア 
ドレスを求め，目的のドットパターンを含む1セクタを人力することによって可能です.そのた 
めには，内部値を1色1点を0とする漢字パターン内の相対座標に変換する必要があります. 

値 相対位路 


//未定斿邡分 


図 6 — 1 一 4 漢字ファイルのアドレス 

この図は内部値と相対位38の関係を示しています.また，次のプログラムは実際に DISKS で漢 
字バターンをディスクから読んで画面に出力するものです. 

1000 /XXX 

10 10 lx* K^JI READ FROM DISK 
1013 "XX* 

1017 SCREEN 1 

1020 FIELD M0 f 128 AS Cl« 9 128 AS C2% 

1030 DATA 2f 256 f 658 f i410 f 752 f 3666 f 7050 f 3384 f 3968 f 32767 
1046 FOR 1-1 iO10 
1050 READ T<I) 

1060 NEXT I 

1065 CLSiPRINT ZiO 1 )%? 的 7W 

1066 "XXXXK INPUT KANJI CODE 

1070 INPUT _Ji« or Kut»n or End < J/K/E 

1071 IF THEN END 

1075 IF B■ J« THEN W iGOTO 1690 
1060 IF B ♦- -K- THEN ELSE GOTO 1870 
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098 INPUT 'KANJI CODE I■ f A IA-VAL<B^^STR^<A>) 

100 

110 IF B<T<I) THEN PRINT •1LLEGALL_iGOTO 1070 
120 

130 IF B<T<I> THEN 1160 

140 1 麵 1+1 

130 GOTO 1110 

160 PRINT USING •少ィ -NNMM ソウ 今ィィ ♦ -MMN a iAiB 

170 S-INT<B/8) 

180 0-<B-8XS>»32+1 
190 S-S+19X32+16 
280 H-INT(S/16) 

210 8-S-UXH+l 
220 T-INT<H/2> 

230 H-H—2XT 

235 PRIhfT USING 卜 , へ * iTxHxS 

240 PRINT -FONT カイシ bit ■>•|0 

250 t>^-DSKI^<l,H,T,S 〉 〆 READ DISK 

260 IF 0>128 THEN iO-O-128 

270 f>S^MlDt(C>t 9 0 9 32) 

280 P-VARPTR(P^),IF p<0 THEN P-P+2 A 14 
298 M-PEEK< P41> ^PEEKC P42)X2S6 
300 INPUT • ヒ ■ ウシ • O X f Y - |X f Y 
310 FOR 1-0 TO 30 STEP 2 
320 PRESET <X f Y^I/2> 

330 PX-PEEK<N*1) lOOSUB 1370 

340 PX_PEEK<N+IM> iGOSUB 1376 

330 NEXT I 

360 GOTO 1870 

376 mXKJ* PSET SUB 

373 FOR J-7 TO 0 STEP -1 

380 IF <PX ¥ <2-J>)-l THEN PSET STEP< 1,0) ELSE PRESET STEP< 1,8) 
390 PX-PX MOO <2 A J> 

400 NEXT J 
410 RETURN 


6-1-4 漢字データをディスクから消去 

i 免'?:データはデイスク内で60クラスタ A めていて，システムディスクのフリーエリアは40クラ 
スタしか残つていません.ユーティリティの VOLCOPY を使うとシステムとともに漢字データも 
COPY されてしまいます•システムディスク全てに j 奥字データをのせておく必要はないので，ディ 
スクから漢字データを消去したいときには次のブログラムを実行して下さい.なお，このプログ 
ラムは， FAT を羿き換えて漢字データで予約されている領域をユーザーに解放するものです. 


10 "KKK 

20 KANJI DATA ERASE FROM DISK 

30 < T-DISK BASIC ) 

100 WIDTH 88iCOLOR 7 f 8iSCREEN BtCLS 

110 PRINT TAB<20)| B <<< KANJI DATA ERASER >>>■ 

120 PRINT 

130 PRINT TAB< 10) | "Mount DRIVE 1 ior K^JI System disk 8 

二 1 y TAB< 10> »* . Ok -> hit RETURN k •パ 

143 Wt-lNKEYtiIF W ♦ く〉 CHW<13> THEN 145 

150 PRINT 

160 BUFFER-t<H?6CF 

170 ^ 

180 / CHECK FD1 HAS KANJI DATA 
190 • 

208 F1ELDW0,13? AS At 9 117 AS B# 

210 DUMMY^-DSKI^< 1,0, 10 f 14) 

220 FOR 1-75 TO139 

230 IF PEEK( BUFFER ♦丨 > O&HFE THEN STATUS-ST AT US ♦1 
240 NEXT I 
250 IF STATUS〉3 ^ 






戈 t 入出力 


260 

270 

280 

290 

300 

310 

330 

340 

350 

369 


• WRITE FAT 0FFH 
$ 

FOR 1-80 TO13? 

POKE BUFFERS I 9 tcHFF 
NEXT I 

FOR 1-14 TO 13 

,0,18,1 


DSKOt 
NEXT I 
END 


6-2 漢字 ROMP AC 2 


T-BASIC verl . l およひ T - DISKBASIC では漠字ハ•ターンが格納されている漢字 ROMPAC を 
W ⑴することができます.この漢字 ROMPAC の使用方法は BASIC のバージョンによって異ってい 
ます. 

• T-BASIC ver 1.1 の場合 

機械語サブルーチンをメモりにロー ドし，コールします. 


NEW 

OK 

CLEAR f ^HF4S0 
Ok 

B し OAD _-l"TKANJ い 

FoundiTKANJI 

Ok 

I-^HF430iCALL I 
Ok 

PUTa<50 f 80) f KANJI< 1666) 

0k 亜 


使用法は， PUT @( X , Y ), KANJI (漢字コード）として使います • （ X ， Y はスクリーン上の 
座標）なお，このサブルーチンを LOAD してあれば GET @, PUT @ も使用できます.また，フリ 
ーエリアは約300バイト滅少します. 

- T-DISK BASIC verl . O の場合 
サブルーチンを LOAD してコールします.次に示す手順で行います. 



CLEAR pkHFDCB 
Ok 

B し OAD *»-l f B TDKANJI* 

FoundiTDKANJI 

Ok 

I*^HFDC0iCALL I 
Ok 

PUTtt< 38,80 〉 t K^JI< 1666) 

° k 亜 


また，外字はディスクから読み出されます.その他は T - BASIC ver 1.1 と同様です. 


/:1(ノ 



6-3 直接プリンタに出力する 

次のプログラムは，漢字をディスクから直接プリンタに出力するものです.この際の問題点は， 
漢字データの1バイトは横方向8ドットであるのに対し，プリンタに出力するデータの1バイト 
は縦力•向8ドットなので縦横を変換する必要があるということです.この変換は機械語サブルー 
チンで行つています.機械語サブルーチンの説明はリストの注釈を見て下さい. 

ieee ，xxx 


1016 

1020 

1830 

1040 

iese 
1060 
1078 
1080 
1090 
1100 
me 
1120 
1130 
1140 
1 130 
1160 
1170 
1180 


KANJI OOTPOT PRINTER 

CLEAR f ^HEFFF 
CL8 

DIM T< 10) 

^MACHINE LANGUAGE SUBROUTINE 
ftubliiiiitt m iiti||• control 

3^EB,E3,23,5E,23 f 56,El,CD f 14 ， F0,23,CD, 14,F0 ， C9 

II 8 bit ，チー 33 ヘンカン 

El f E5 f CB f 06 f lF f 23,23 f 10 f F? f 12 f 13 f 00,20 f F0 f El f C? 
ii printer output 
lA f 13 f CD f F4 f FF f 10 f F9 f C 9 

l / 今 t 一 33 ヘン》ン SUB 
PRINTER OUTPUT 


• UW 暴 I V I I I I I | | v | 

DATA D5 f 23 f 3E,23 f 

/ 纛篇 i11 蠢 11 雲 i i i 

DATA E3 f 0E f 08,06 f 08 

’ «ub3iiiii111 篇 i 意 11 

DATA 46 f 23 f SE f 23,36 

ADR«^HFeee 

LPTOUT-ftcHF02? 


FOR 1-0 TO S3 

READ A 毒 i POKE ADR+I し <■&h• 
NEXT I 


1190 FIELD 110,128 AS Cl» f 128 AS C2t 

1200 DATA 256, 236 f 658 f 1410 f 752 f 3666 f 7050 f 3384 f 3968 , 32767 
1210 FOR I-i TO10i READ T<I> i NEXT I 

1220 C^-CHW<^H1B)4-S8016 - dot output cod* 

1230 LFl^-CHRt<6cHlB)4-T17 - 〆 GRAPHIC FEED 

1240 LF2^«CHR«(^H1B) ♦•A* i / NORTEL FEED 

1250 CRLF*-CHR^<ftcHD>+CHR ♦ 《レ HA> I ， CR/ LF 
1260 • - 


1270 

1280 

1290 

i 3 ee 

1310 

1320 

GOTO 

1330 

1340 

1330 

1360 

1370 

1380 

1390 

146 e 


1270 


INPUT _Kut 曹 n or END < k / き > t m 9 B% 

IF B ♦- B E* OR THEN END 

IF OR M--K* THEN ELSE 

PRINT • KANJI cod〆 丨 iX_POS<0> lA 
LOCATE X f OgRLINiPRINT A • 丨， 11 | I It-INPUT«(1) 

13 10^ELSE^ < 13> THEN 1338 ELSE IF *^-CHW<^HlD) THEN A^-LEFT^<At ,LEN<A^> -1) 

IF LEN<At)<>4 THEN 1310 ELSE LOCATE X f CSRLINiPRINT 
I_ll B»A 

IF B<T<I) THEN PRINT •丨 GOTO 1270 

I_I+li B-B-T<I)i 1 麵 1+1 
IF B<T<I) THEN 1418 


GOTO 1330 


■|A|- ソウタイイ笋 - |B 


1410 PRINT m t^7 m 
1420 / 

1438 8-INT<B/8) 

M40 0-<B-8KS)K324l 

1430 S-S+19X32+141 H-INT<S/16> 

1460 S-S-16KH^1 

1470 T-INT<H/2) 

1480 ^H-2XT 

1490 PRINT -TRACK i-iTi* HEAD 
1500 / 

1310 D^-DSKI^<l f H f 


CHARACTER POSITION 

SECTOR ADDRESS 
TRACK ADDRESS 
HEAD 

|H;_ SECTOR i*|S|« POSITION 


_|0 


1320 IF 0>128 THEN D«-( 
1330 P^-MID^<IH f 0 f 32> 


卜 128 


1540 


READ PATTERN 

i 

GET ONE PATTERN 


1350 UP^-STRIN( 

1560 

1370 AP^-RIGHT^<P^ f 16) 
1580 CALL LPTOUTCCS) 
1590 CALL LPT0l/T<C 拿〉 
l^ee GOTO 1270 


UP^-STRING^C 16,0) i 
AP ♦• し EFT 攀く P^ f 16> i 
AP ^- RIGHT #< P^ f U)i 


LP»-STRINQt< 16,0) 

CALL ADR(AP^ f UPt) 

CALL ADR<AP^ f LP^) 

CALL LPTOUT<UP«>i CALL LPT0UT<LF1 奉〉 
CALL LPT0UT<LP^>i CALL LPT0UT<LF2^> 


CALL LPTOUT<CRLFt) 
CALL LPTOOT<CRLF，> 
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第 7 章 

OA - BASIC の内音臟 


7-1 メモリ内部の状態 
7-2 ディスク • フアイノレ 
7-3 グラフィック 
7-4 漢字入出力 




第 7 章 OA - BASIC の内部構造 


OA - BASIC は東芝が独自に開発した BASIC で，東芝のオフコン BP -100 の BASIC をハ•ソピア用 
に改良したものであり， BP -100 とブログラムの互換性がほぼ保たれています.ファイル処理機能 
が！®れていることや， BCD 演算であることから誤差が少ないという特徴を持っているので，文字 
どおり 0 A に対しての強力なッールとして使うことができます. 

この争では OA BASIC の W 造とファイル処理についてスボットをあてて説明します. 

7-1 メモリ内部の状態 

7-1-1 メモリ•マップ 

OA - BASIC は ROM 版のものと DISK 版のもとではメモリの使用状態が K •っ ています. 
DISK - BASIC のメモリの使用状態を説明します . DISK - BASIC では ROM の 32 K バイトと RAM 
の64 K バイトを使用して動いています.はとんどのコマンド • ステートメントを実行するときに 
は RAM モードで，また直接実行命令を実行するときには ROM モードで，というように ROM と RAM 
を八ンク切換しながら動いています. < 1-1-3 参照） 

DISK - BASIC 起動時のメモリ•マップは図 7- 1 - 1のようになります.図中のボインタ等のシ 
ンボルについては後述します. 

この図を見ると， ROM 領域の CLOAD 等の弃き込まれている部分の RAM は，データエリアと拡 
張エリアになっています.このうちデータエリアは，文字列のデータの格納などに使用され，拡 
張エリアは， BASIC の拡張命令の処理ルーチンを格納するために使用されます. 

中間言語ブログラムエリアには， BASIC ブログラムが中間言語で格納され，変数エリアには変 
数名などが格納されます. BASIC インターブリタのワークエリアは，人出力のハ•ッ ファ や各 M の 
ポインタの格納に使用されています. 

ROM 版では，電源投人時に ROM の内容が RAM にコピーされ， ROM モードで動作する 一•部の 
コマンド （ LOAD など）の実行を除けば RAM モードで動作します. ROM で使用されるコマンドは 
CLOAD ， CSAVE , TERM 等， BASIC ブログラムの実行時には使用されることのない命令で，こ 
の命令が入力されたときには，バンクを切り換えて ROM モードにして実行します. 

データエリア2はデータエリア1と同様に使われます. 
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策 7 章 OA BASIC の内部你造 


〈 ROM 領域〉 


未使用 

( OA-BASIC 

インタブリタ） 


( ROM シードで動作する） 
RENUM / CLOAD/CSAVE 
DLOAD/DSAVE 
TERM 


( RFU ) 


> 


電源投入時 ram 
領域にコビーされ 
ます. 


VDTOP 




TOPPR 


BTMPR 


BTMVR 


v 

A 


( VDTOP ) 


OCTOP 


VATOP 


RAM 領域〉 


OA-BASIC 

インタブリタ 


データ 


ア1 


拡張文用エリ 


中間首措プログラム 
エリア 


変数名®鉍 

エリア 


し夕•エリア2 


空きエリア 


配列テーブル 
エリア 


変数データアドレス發録 
エリア 


BASIC インタブリタ 

ワークエリア 

(入出カ バッファ 等) 


スタックエリア 


0 0 0 0 


DATOP 
(7 2 0 0) 


FMEML 
(7 EBE ) 
LOHEM 
(8 0 0 0 ) 


HLMEM 
(F 2 4 5) 


(FF 0 2) 
( FFFF ) 


— 2 ROM 版メモリ • マップ 








• マップで使用したボインタやその他のボイン 


いて簡単に説明 


(16 進数) 


シンボル名 


F 4 


利用者領域の先頻アド 
L 0 M E M される. （ LOMEMn - 
行すると変化する.） 


ベが格納 




' ドを実 

8000 

8000 

1 ■ 

〇 

_ ■■ ■ 


HI MEM ■者領域の祕アドレスが格納 F24 5 F049 
されている. 


BTMPR 中問;^プログラムの祕アドレ8000 800。 
スが格納されている. 


TOPPR 


中間首《ブロ 
スが格納され_ 


夕 • エリアの現在の先须アド 
が格納されている. 


ブルエリアの祝在の先朔 
が格納されている. 


の％在の敁終アド 
ている. 


_罾 ■ I ■■ ■ ^ 

F 40 F CURPT 

中間言梧ブログラムのカレントア 
ドレスボインターが格納されてい 
る. 

■■- ■ ■ 4 

800 1 

F 8 3 8 DATOP 

< ROM 版〉 



データ • エリアの先頭アドレスが 

7 2 00 


格納されている. 

服]定） 


〈 DISK 版》 

デイスクファイル制御 W 報エリア 
の現在のァドレスが格納されてい 

1る. 





Kid 


図表7 - 


ッ ブで使用 


ボルの意味 









W,7 » OA 


3 ASIC インタブリタにとって必要な数値（例えばプログラムの格納領域の先頭アドレス）は 
/夕と呼ばれるワークアドレスに格納されています.次の表で示されるアドレスと，それ 
^ドレスの2バイトに分けて記憶されます. 

广ことえば，シンボル LOMEM のボインタ， F 428 H に 00 H が， F 429 H に 80 H が書き込まれて 
するなら，ユーザ領域の先頭アドレスは800 0 H である，ということになります.なお，表中ジ 
’ の項はそのポインタの値を変化させることの口 I 否を示します. 

また，人出カバッファは次のように割り当てられています. 



図表7— 1 一4 入出カバツファー筧 

7-1-2 プログラム領域 

ユーザ領域の先頭アドレスは LOMEM のポインタにより示され，觉源投人時には 800 0H とな 
ています.このアドレスは LOMEM コマンドによって変史することができます.中間言語ブロ 
ラムは，ユーザ領域の先頭アドレスの次のアドレスより始まり，シンボル BTMPR のポインタ 
示されるアドレスまで格納されています. 

実際のプログラムの格納状態は，次のブログラムを使えば調べることができます.打ち込む 
に LOMEM 8000 を実行して下さい. 

0010REM 

0020REM Ascii dump ior OA-BASIC 
B030REM 

0040XOPEN n m prl m f «adump B 9 \ 9 m O m 
0050 DIM P^X7?<0)i 












籌 tairt 

• nd 

8000 

8010 

8020 

8030 

8040 

8030 

666 e 

8070 


*ddr*sst 80 ee 

addr#**i807F 

区切行#号 10 

I IS 1 L ® 00] 

i 32 45 40 



EM 

E 

> 43 


01 E7 FE 79 00 EB FE 00 
FE 23 EF 60 00 16 01 


ブログラムをダンプしてみると，マイクロソフト 
気づくと思います. 

1) 行の区切りを示すのが EFH である. 


INPUT •» 

0070 INPUT ■ ^nd Address i a iEAM 
0080 HEXA 知 SADt 
0090 60SUB 320 
0100 SA0H-INT<HEXA/16) 

0 110 HEXA 和 EAM 

0120 OOSUB 320 

0130 EADH-INT<HEXA/16) 

0 140X 

eisex 

0 160 FOR I-SADH TO EADH 

0170 IF INT<I/8>_l/8 THEN PRINT tX PRINT # 11 • • 

0180 P^<0)-HEX^<IX1^) ♦- , - 

0190 FOR J-0 TO13 
0200 M-PEEK<IMU4J> 

0210 P^<0>-Pt<0)^HEXt<h) ♦-- 

8220 IF <J_7>+<J_1S> THEN 的 < 0> _Pt< 0> ♦ ■ ■ 

0230 NEXT J 

0240 FOR J«0 TO19 

0230 H-PEEKUXU+J> 

J F <M< 128>K<H>31) THEN P^<e>«P^<e> 4CHR^<M> ELSE P#<0>_P^<e> 
0270 IF J_7 THEN Pt<e>-Pt<0>• 

0280 NEXT J 

0290 PRINT P^<0>IMPRINT MliP^<e) 

0300 NEXT I 
0310 END 
0320X 

0330X h»xa cod* to10 
034ex 

0330 HEXA-0 

B340 FOR 1-1 TO LEN<HEXAt> 

0370 A-A8C<hIDt<HEXA^ f I f 1)> 

0300 IF <A>-^30)K<A<-^3?) THEN HEXA-HEXAX 16^A^30 i 
GOTO 400 

0390 IF <A>64> X(A<71) THEN HEXA-HEXAK16^A-99i 
GOTO 400 
e4ee next i 
0410 RETURN 


(注意および説明） 

プリンタに出力したいときは 40 行，170行，290行の■(アスタリスク）をとって下さい. 

320行からのサブルーチンで16進から10進に変換しています. 

また，入力は大文字で行って下さい. 

このブログラムを用いれば，ブログラム領域をアスキーダンプすることができます.このブ[ 
グラムを使ってこのブログラムの格納されている領域をダンプすると次のようになり李す 


K A m \ KtW tWfw) ij i{ : ブ 

■r 暑 m ’':£•，• で'：。へ」.’ tv -^： k ；； v , ^ 

心 】 U ]M セ辦祕う嘯 — 


ae 






浓 7 » OA BASIC の内部怫逄 


変数の型 
〇〇 未使用 
0 8 文字変数 
0 9 整変数 
0 A 単精度変数 
0 B 倍 M 度変数 


2) リンカは次の行の先頭アドレスではなく，次の EF までのバイト数を不している. 

3) 変数は名称ではなく，何番目の変数かという番号で害き込まれる. 

4) REM 文の中間コードを示す BEH の後に w REM ff や* 〆 や，/がアスキーコードで格納さ 
れている.すなわち， REM 文では•や，を使った方がメモリ効率がよい. 

7-1-3 変数の格納状態 

OA - BASIC は，カナ変数を使えまた変数は40文字まで識別することができます.変数の処理は 
マイクロソフト系の BASIC とは大幅に？！つています. 

ブログラムの後に変数のテーブルがあり，ブログラム中には何番目の変数かということを示す 
1バイトの数が害き込まれています•変数のデータは前述のデータエリアに書き込まれています. 

変数データのテーブルには，変数名の文字数1バイトと変数名が害き込まれ • ここには変数格 
納のボインタはありません. 

変数の格納アドレスは，シンボル V ATOP で示されるアドレスから変数名テーブルの順に格納さ 
れ，変数の型と格納アドレスが示されています.変数の格納の状態を次の図に示します. 

図7— 1 一5 変数の格納 

変数名テーブル 

ブログラムの的:後にあり.次のように拜込まれる. 

例> 

Ilia 0 ! IS e E 5 Si S? a 0 ^ tl S§ IIS? it It II t\ w: 溫 :㈤ :訟 

8330 i 44 48 04 48 45 58 41 04 45 4144 48 0 14A 0140 OH. HEXA. EADH. J.M 

8340 i 014141 0141 00 00 00 00 00 00 00 00 00 00 00 .AA.A.. 

メモリこのテーブルにおける変数の 順番 （変数 番号) が香込まれる. 

例えば， SAD なら0 0, I なら01となる. 

例変数 S 号 n の度数の格納アドレスは次のように求める。 

• F 409 . F 40 AH を调ぺ変敎アドレスエリアの先頭アドレスを调ぺる. 〔 ADR 1 _PEEK ($ F 409) 

4 -PEEKS ($ F 40 A )〕 U 

• 変数アドレスエリアには次のように 奔 込れているので変数の格納されてい 
るアドレスを知ることができる0 

VATOP 


敁後に登録さ（未使用） 
れた変数 


変数名テーブル 
の最初の変数 


08 82 0102 00 00 …… 〇8 83 64 


US 1 


禾使用の変数で 
あるため 

変数の型 


I 格： S アドレス 
変数の型 
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格納形式 


ADR(A%) はこのアドレスを示す. 

_ L r _ f 2 桁ずっ区切り上位，下位を入れ替える. 

整変数 A %- 1234-^ 3 4 12 

単精度 A -. 12345E-14-o|2 C| 5 6 3 412 

3 AH に指数部を加えたもの. S3 A + (-14)-S2C 

倍精度 A ¢-.1346789 D+ 21014 cj 9 0 7 8 5 6 3 4 0 1 

注）プログラム入力時に 123 E +12 などと打ってもリストでは. 123E + 15 と変化します. 

文字変数 AS-ABCo 03414243 

文字数 アスキーコー ドで格納される. 

7-1-4 識別コード 

識別コードは変数の前に付けられ，そのコードに校く数値の型を示します.例えば， A = 1234 と 
いう文はメモリ内では次のように表現されます. 


01DEFE3412 (01 は変数の格納された順番を示す) 


DE は w を示す中間言語で， FE は祭数を示す琏別コードです.また，数値すベて BCD 形式 
(2 進化 10 進数）で格納されるので， 1234 が 3412 と格納されています.これは，単精度，倍粘度と 
もに同様です. 

識別コードは次のようになっています. 


FA 

文字列 

FC 

倍 W 度数 

FD 

単精度数 

FE 

整数 

-5 

中間言語 


ブログラム中の各命令は，メモリ節約のためと実行速度向上のため，中間言語形式でメモリに 
格納されています. 0 A - BASIC の中間言語は次のようになっています. 
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注） FA 〜 FEH は嫌別コード 


NEXT 

C7 

NULL 

F928 

ON 

OPEN 

C6 

B5 

OUT 

GB 

PEEK 

F929 

PI 

F943 

POINT 

F944 

POKE 

C3 

POS 

F930 

PRESET 

?C 

PRESET 

F946 

PRINT 

C2 

PSET 

90 

PSET 

F945 

PURGE 

B3 

PUT 

C4 

RANDOMIZE 

C0 

READ 

Cl 

REM 

BE 

REN#V1E 

AF 

RESTORE 

BF 

RETURN 

BD 

RIGHT 攀 

F923 

RND 

F92A 

SCREEN 

?B 

SEARCH 

B9 

SF し G 

A7 

SGN 

F91F 

SIN 

F938 

SPACE 秦 

F93D 

SPC 

F93E 


図表 7— 1 -6(b) 0 


KErWORD TOKEN 


M 

E5 

秦 

F7 

< 

EB 

) 

EA 

X 

E7 

XX 

F0 

令 

E? 

1 

eo 


E8 

/ 

I 

£6 

EE 

1 

EC 

< 

DD 

<* 

El 

<> 

E0 

*< 

OE 

E2 

*> 

> 

E4 

DC 

>< 

OF 

>- 

E3 

ABS 

F91A 

ADR 

F924 

ASC 

F93A 

AT 

A3 

ATN 

F933 

BEEP 

A6 

B し OAD 

A1 

BSAVE 

A0 

BUILD 

B6 

CALL 

D8 

CDB し 

F91B 


第 7 焐 OA BASIC の内部蟎适 


図表 7— 1 一 6(a) OA-BASIC の中間コード表 



9 A 

B 

c 

D 

E F 

_1_ 

F90 

F91; 

F93 

F94 

D 








POS 

ERR 

■ 


EOF 






FKEY 

FLAG 

D 







SQR 

FRE 

H 


PURGK 






ATN 

PI 

Q 


CLOSE 






COS 

POINT 









EXP 

PSET 

P 








FIX 

PRESET 

Q 


TROFF 






LOG 

ERL 









SIN 

KANJI& 

D 

COMMON SEARCH 

INPUT 





TAN 

KUTENS 

n 

WIDTH! 

CLKAR 

IF 







Q 

SCRKKN INPUT 

OUT 

UPDATE 






UN 

Q 








HEX$ 


Q 

圃 _ 

RETURN 

CHAIN 







■ 











COLOR RENAME 

RESTORE 

GOSUB 







麵 




HH 


Hi 


iM 



間 

中 

の 

C 


^110123456789ABCDEF 0123456789 2 
3 3 4 000000000000060011 11111111 4 
9999999 99? 99999999999999 999990? 
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFDF 


^FLAllFNCFNDFNEFNFFNGFNHFNIiFNKFNLlFNNFNOlFNQFNRFNSIEFNXFNYFNZFORFREs 
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CHAIN 

CD 

60SUB 

CF 

SQR 

F932 

CHRt 

CIN 嘛 

F93B 

GOTO 

CC 

STEP 

DA 

BC 

F94A 

HEXt 

F93C 

STOP 

CINT 

F91D 

IF 

CA 

STR% 

F92E 

CLEAR 

BA 

IN 麯 

F925 

STRINGS 

F93F 

CLOSE 

B4 

INPUT 

INPUT 

AB 

TAB 

F92B 

CO し OR 

9F 

A9 

C? 

T 州 

F939 

COMMON 

INT 

F91E 

TGET 

A5 

COPY 

D1 

1RN0 

F926 

TIM 

F92C 

COS 

F934 

KANJUc 

F948 

TO 

DB 

CSN6 

F91C 

KIN^ 

F927 

TPUT 

A4 

DEF 

D5 

KUTENt 

F949 

TROFF 

B7 

DIM 

D4 

LEFT 瘳 

F920 

TRON 

B8 

ELSE 

B0 

LEN 

F921 

UPDATE 

CB 

END 

D3 

LET 

C8 

USING 

B2 

EOF 

B1 

LINE 

9E 

VAL 

F92F 

ERASE 

D2 

LOG 

F937 

WklJ 

A8 

ERL 

F947 

MIDt 

AE 

W1D 

F92D 

ERR 

F940 

MIO» 

F922 

WIDTH 

9A 

EXP 

F935 

MOTOR 

A2 

WRITE 

C5 


7-2 ディスク•ファイル 


7-2-1 ディレクトリ 

データおよびブログラムの外部記憶装 S として，ミニフロッピィディスクを使用することがで 
きます. 

両面倍密のフロッピィディスクは，次のような フォー マットで使用されています. 




このデイスク フォーマッ トのう 

ルの名称や格納位置などのデー 


な フォーマ 


4 5 6 


書き込まれて 


1314 



眾7 S OA BASIC の内部^ 


に格納されているファ 


ラベルは次のよ 


33 35 








HBI 翮翮翮 翮 ^ ■■MflBl iMHBBBIB 









この各部分はそれぞれ次のような意味をもっています. 


図表 7 — 2 — 3 データセツトラベルの内容 


カラム 

位置 

タイプ 

値 

内 容 

1 一4 

アスキー 

HDR 1 

データセットラベルであることを示す.（阆定） 

6一 13 

アスキー 

8文字以内 

ファイル名を示す. 

14 

バィナリ 


ISF フアイルのインデックスレベルをボす. 



00 H 

初期状態 （データ 未 出力） 



02 H 

主 索引/副索引 1レベル 



03 H 

主 索引/副索引 1 /副索引 2レベル 

15-20 

アスキー 

6文字以内 

パスワード名を示す.全て空 A の時は.パスワード無しと判断する. 

21 

バイナリ 

1〜14 

ISF ファイルのキー 拉 を示す. 

22 

バイナリ 

1〜255 

ISF ファイルのキーの先頭カラム位 K (キーポジシヨン）を示す. 

23〜27 

アスキー 

256 

デ-タブロ •ンク (. „ ,256 IAl * i ^) 

29 - 33 

アスキー 

TTHSS 

ファイルの先頭トラックセクタを示す. （ BOF ) 




TT : トラック （0 〜39> 




H !へッド （ 0 or 1 ) 




SS :セクタ （1 〜16> 

35〜39 

アスキー 

TTHSS 

ファイルの 坫終 トラックセクタを示す. （ EOF ) 

42 

アスキー 


アクセス許可を示す. 



空白 

アクセス可能であることを示す. 



空 n 以外 

アクセス不可能であることを示す. 

43 

アスキー 


ライトプロテクト 



空白 

奔き込み玎能であることを示す. 



空白以外 

咨き込み不可能であることを示す. （ PUT # WRITE # 文） 


44 


ASIC フラグを示す. 

BASIC 挥用フアイルであることを示す. 







m 


n 


アウトプットフラグであることを示す. 

アペンドが可能なファイルであることをポす RF . SV ファイルに1件以 
上のデータが杏き込まれている時, “0" となる. 

アペンドが不可能なファイルであることを示す. 


OIS ファ イルは全て空 A 

〇フアイル又スペースが確保されているだけで，データが1 fl ••を S き込 
まれていない状態の時空こなる. 

( OPEN 其文の人出力诚件に A を指定することはできない J 


511ブロック内レコードアドレス （ SF t KF の時符効）アペンドモード（追/川) 
でオーブンされた時，レコードを追加するブロック内のバイト位興を示す. 


9999 


nn 

〜9999 


レコード長を示す. 

HF / ISF ファイルに対してだけ存効. 

ブロッキングファクターを示す. 

nn は.1レコードのブロック数を示す.（レコード技:> ブロック及） 
nn は.1ブロック中のレコード数を示す.（レコード设彡ブロック设) 
祝在作成されているレコード数を示す . （SV ファ イル時に有効） 


Idele Blocke Pointer (1 SF のみ打効） 
空きブロックのチェーンセクターを示す. 
B 6 E を1とした相対セクター器号 

Hr ファイル褊成を示す. 

V 顺編成フアイルであることを示す. 

F 乱編成ファイルであることを示す. 


5 索引順 編成 ファイルであることを示す. 


データ収容の鉍終セクターつのトラックセクタを示す. 










クに関するルーチンおよびボインタは次のよう 

27-2-4 ディスク関係の処理ルーチンとボイ 



アドレス 値 

(16 進数) (16 進数) 

内 容 

使用例 

0 5 3 3 ' 

ミニフロッピールーチンのアドレスで CALL す 

MFDD = $0533 


ることにより，前もって設定されたパラメータ 

1 


に従い.袖々の処理を行う. 

CALL MFDD 

F E A D (1 バイト） 

' ■ ■ « 

ミニフロッピーに対する処理勑作を指示する. 



バイト•アドレス 

CADR=$FEAD 

( 


〈機能》 

) 

POKK CADR . $86 

8 6 

①シークアンド.リード <86 H > 

(シークアンド，リー 

ド） 


指定のトラック/へッド/セクターからデータを 

その他勑作コマンド 


人力し，そのデータを人出カバッファに格納. 

には.次のものがあ 

る. 

08 DH : Seek & 

Write 

C 5 


1 〇 07 H : Return to 


②シークアンドライトチェック （ C 5 H ) 

Zero 

004 H : Sense Drive 


i 人出カバッファの内容を衍定のトラック/ヘッド 

Status 


ド/セクターに？？き込みます. またその後，方き 

O 06 H : Read Data 


込まれたデータを再度说み込みチ X ックを行い 

007 H : Write Data 


ます. 

OOFH : Seek 


(入出カバッファ内は，変わらない.） 

〇 ODH : Write ID 

8 5 

® シークアンドライト （85 H ) 

通常の奶理において 
は,上記のものは使 


人出カバッファの内容を指定のトラック/へッ 
ド/セクターに奔き込む. 

用しない. 

FEAC : (1 バイト> 

処理を} f う FDD の装說»号を設定する. 

DADR=$FEAC 


アドレス 

POKE DADR , $01 

0 0 

FDD N 0.1の装 S 

i (FDD N 02の装避 

01 

FDD N 0.2の装 H 

を迅理の対象とする） 

0 2 

FDD N 0.3の装 S 



0 3 


FDD N 0.4の装孜 


アドレス 

(16 進数） 

値 

(16 進数） 

内 容 

使用例 

F E A D 

(2 バイト> 1 

人力出バッファのアドレスを設定する. 

人力出バッファは， 

F K A K 1 


アドレス 

DIM 文で没定する変 



MSS LSS 

数 領域を利用すると 



Low : High 1 

便利 



ァドレス設定は. L < m/High を反虹し指定する. 

DIM IOBUFS * 




255(1 ) 



(例)入出カバッファを C 000 H とする時には.次 
のように設定する. 

BADR = ADR(IOB 




UF $(0)) 



FEAI ) 1 0 ： 0 

FKAH [ C i 0 | 

\ 

POKK $ FKAI ). 

BAI)R 

I NT(B ADR /256) 
*256 

POKK $ FKAK . 
INT ( BADR /256) 


ドト: A ド （2 バイト）人出カデータのデータ及を設定する. 256バイトの人出力 

F K B 0 

データ技から1をリ I いたバイナリーデータを没 BSZ =256 -1 
| |定する i 

I POKE $ FEAF , 

人出乃バッファのアドレス設定と同じでメモリ BSZ - INT ( BSZ / 

バイトの Low / Hi g h を反*！！;させ設定する. 256)*256 

丨 | POKE $ FEBO , 

INT ( BSZ /256) 


トラック2 . ヘッド 

0,七クター9を設 
定 

TTHSS = $ FKB 1 

i 

F K B 2 (1 バイト}人出力を ff うヘッド（サイド）推妗を設定. TT =2 : \1= 0 : 

SS =9 
i 

POKE TTHSS , 
INT ( TT ) 

POKE TTHSS +1 
INT ( H ) 

FOKK TTHSS +2 
INT ( SS ) 


0 0 表サイド 


01 輿サイド 


ド KB 1 U バイト）人出力を ff うトラック游碎を設定 
I (0 トラックから35トラック） 

00-22 



アドレス 

(16 進数） 

値 

(16 進数） 

内 容 

使用例 

FEB 3 

(1 バィト）1 

人出力を行うセクタ番号を設定 




( 1 セクターから 16 セクター） 



0 卜 10 



FE3 4 

(1 バ川 

ェラー発生時のリトライ回教をパイナリーで設| 

RADR = FEB4 



定. 




BASIC インタープリタ内部では lOM(OAH) 

POKE RADR, 




SOA 

FE 3 C 1 

(1 バィ H 

ミニフ u ッビー人出カルーチンが設定する終丫 1 

IOSTS=SFE3C 



ステータスが格納される （ Read only) 




内容はコード 





CALL $0533 


38(、、8 つ 

正常終 r 

IF PKKK(IOSTS) 


30(''0") 

FDD not Ready (ドアオーブン茨） 

<>'， 8"TH 


32(” 2") ! 

ID フイードエラー 

THEN 


33(、、3,0 

Seek エラーおよび欠トラックの検出 

GO10 nnnn 


34 ro 

CRC ェラー 



35('、 5") 

Write Check エラーおよび File Unsafe エラー 



36(、、6 つ 

Deleted Sector 検出 



37('、 7") 

人カバラメー ターェラー 



39(、 ' 9") 

Deleted Sector で CRCx5 — 



47(、、 G") 

Write Protect エラ— 



このうち， S 0533 H はディスクの I / O ルーチンで，このルーチンは次のようにすれば利用できま 
す•この場合は各ボインタにアクセスするドライブ等のデータを POKE などで冉き込んでから ルー 
チンを コールす るのですが，この場合 ト ラック.セクタ等の数値がおかしければディスクの内容 
が破壊されることがあるので注意が必要です.（図7 - 2 - 5参照） 






入出カバッファの確保 
処理する FDD 装置番号の設定 
エラー時のリトライ回数の設定 
入カデータ長 


動作コマンド設定 （ Read / Write 等) 
処理するトラット，ヘッド，セクタ 


利用 ft 処理 


エラー処理 


図 7—2—5 ミニフロッピー入出カルーチンの使用法 
ミニフロッピィディスクのダンプ 

ダンプを行いたい場合は， OA - BASIC ではヘッド.トラック•セクタを指定してデ 
クの内容をメモリにコピーさせるような命令がありません.そのような作業をしたいときに 
前項で説明した内部サブルーチンを使う必要があります.次に示すブログラムは$0533の内部 
用しています. 


0020 

0039 

6640 


FDDUMP for OA-BASIC 










68 WIDTH 80 , 一 
SCREEN 0 
70 ERASE 
80 PRINT TAB<1 
0090 PRINT TABU 
INPUT ■ Do 
0100 IF <I0t-- y - 
10-1 ELSE I 
0 1IB PRINT TAB(1 




0 •- 




0 130 


0 140 


0 130 



0 180 


ee 
0210 
0220 

0230 


0120 IF <DRNO>4)^<DRNO<0) THEN PRINT TAB<10)|-ILLEGAL'i 

PRINT TAB<10,16)|i 
INPUT 'TRACK i-iTRACK 

IF <TRACK>35)4(TRACK<0> THEN PRINT TAB< 10) i-ILLEGAL 
GOTO130 

PRINT TAB<10 9 11)|i 
INPUT -HEO i 8 |HED 

IF <HED-1>♦<HED«0>-0 THEN PRINT * ILLEGAL"i 
GOTO 130 

PRINT TAI - 

INPUT «S 
IF <8CTS 
GOTO 170 
XX 


NUMBER FROM f T0 f|SCTST f SCTEND 
<SCTST>16>♦<SCTEND<l>♦<SCTENO> 16) 


THEN PRINT ■ILLEGAL 


丨 X paraimmt#r 
ST TO SCTEND 


ぶ R^_ HED-^HED,. StCTOR-,SECTOR 


0240 GOSUB 628 丨 XXXXX disk r«4d 
0230 丨 F I OS ♦- -0 - THEN 730 
0260 DADR-ADR< FDATA^< 0> > 

0270 IF <TRACK_0>X<HED-0> THEN BYTES-127 ELSE BYTES-253 
0280 FOR I_0 TO BYTES STEP 16 
0290 PRINT HEXt<I) i-f-iTABO) |i 
0 IF THEN PRINT «»l|HEXt<I) |- |- ,TAB<5) | 

0310 FOR 11-0 TO IS 
0320 DD-PEEK<DADR4UI I) 

0330 PRINT HEXt<DO>i- - ii 


PRINT HEXt<DO>i - _|i 

IF 10 THEN PRINT HI|HEX»<DO)|• • 

IF DD<^20 THEN D0^-« •- ELSE D0«-( 


0340 IF DD<^20 THEN DM-*.- ELSE DO«-CHR^(DD> 

0330 + 

0360 NEXT II 

0370 PRINT • *|DD«i 

IF 10-1 THEN PRINT _1!_ • 1 〇〇 % 

0380 NEXT I 

0390 NEXT SECTOR 

0400 IF 10-1 THEN CLOSE 111 

0410 PRINT i 

INPUT «CONTINUE<Y/N>•|A« 

0420 IF ♦<A*« a y >> > ^<A«»CHR«(7> ) THEN 70 

0430 END 

0440X 

0450X I/O ROUTINE PAfWWTER SET 
0460* 

0470 MFDO-^0533iX DRIVE ROUTINE ADDRESS 
0480 AREA-^FEABiK PARAMATER TOP ADDRESS 
0490 I0STS-^FE3CiX I/O STATUS ADDRESS 
0500* 

mi ^5 AR^^2 f DADR-Iha<C>ADR/2S6)*256.^ SET BUFFER ADDRESS 

0520 POKE AREA+1, 拿 00iX DRIVE NUMBER SET 

0330 IF FDONOOl THEN POKE AREA^l f «6 1iX for driv# 2 

0540 DADR-ADR< FDATAt < 0 > > 

AREA42 f DAOR-INT< DADR/256) *236 1K touiiT «ddr#ss 
0360 POKE AREA^3 f INT<DADR/256> 

0570 BSZ-236-1 

®^80 POKE AREA44 f BSZ-INT<BSZ/256) *256 1 * data 1#ngth 
0590 POKE AREA^5 f INT<BSZ/256> 9 

- -OKE AREA 

ETURN 




0630X r*ad disk 
8640X 

0650 POKE AREA46 f INT<TRACK)iX track 

0660 POKE AREA^7 > INT<SECTOR)iX sector 

0670 POKE AREA48,INT<HED>iX %•% 

0686 CALL MFDD 
0696 IO»« - • 

0700 POKE AOR<IOS^)♦1,PEEK<IOSTS) 

0710 RETURN 

0720X 

0730* 

0740* I/O •rror 
07S0X 

0760 PRINT 

0770 PRINT I/O •rror XXX s 

0780 GOTO 400 

0790XXXXXXXX FLOPPY DISK DRIVE ROUTINE XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


0800X 

0816X 

0820X 

I/O ROUTINE ADDRESS . 

4C« Address 

瘳 0S33 




0830X 

command - - 

- 6FEABH 

< 

< 

1 

byt 

0840* 

driv« no# - 

- OFEADH 

1 

byt 

eesex 

I/O buffer 暴 ddr#«i 

- 0FEADH 

< 

< 

1 

byt 

byt 

066 ex 

I/O data 1 «ngth - 一一 

- 0FEAFH 

2 

0870* 

trmck - 

- 0FEB1H 

< 

1 

byt 

0680X 

••tctor - 

- 0FEB2H 

( 

1 

byt 

0890X 

h*ad -- - - 

- 0FEB3H 

< 

1 

byt 

e?eex 

I/O r»try counter - 

- 0FEB4H 

< 

1 

byt 

8?iex 

0920X 

I/O status - 

- 0FE3CH 

< 

1 

byt 








ので荚行させる 


さい.般悪の場合には，ディスクの内容が破 





ク上の内容をダンプすることができます.例えばドライブ1, 
の内容を昆たいときには次のように操作します. 


I I I V ■ 【 • • ▲ J 







/うかを聞きますので使う場合は Y を，使わない場合は N を入 
トラック，ヘッドに対しては，それぞれダンプしたいドライ 
は開始セクタ，終了セクタを人力して下さい. CRT には次の 










TRACK- 

001 98 

101 

ee 

20 1 

00 

30 1 

00 

401 

ee 

50 1 

00 

60s 

00 

70 1 

00 

set 

00 

90 1 

ee 

A0I 

ee 

B0I 

ee 

cei 

ee 

oe t 

ee 

E0i 

ee 

F0i 

00 


7-2-3 シーケンシヤノレ • フアイノレ （ SF ) 

シーケンシャル•ファイル（順祸成ファイル）は， CATALOG をとったときに SV で表されます. 
SAVE コマンドで作成されたファイルもシーケンシャル.ファイルになります. 

シーケンシャル.ファイルのレコード形式は次のようになっています. 

•レコードは可変長で3八イトから9999バイトのレコードを取丨）扱う. 

• ブロック技は512バイト （2 セクタ〉である. 

•各レコードの先頭には，レコード技が2バイトで卉き込まれ，また各レコード間の区切り 
として1バイトの継統マークが典き込まれる. 

• レコード長が509バイト以上の時は，後数のブロックで1つのレコードを形成する. 
シーケンシャル•ファイルでは，レコード技が509以下のときとそれ以外のときとでは，ブロッ 
クの怫成がやや異なっています.ブロックの W 成は次のようになっています. 

レコード長が 509 以下のとき 


ブロック （512 バイト） 


n 










mi 


レコード長が 510 バイト以上のとき 


B 


M 


B 



■■■■ 


図 7—2—6 シーケンシャル • ファイルのブロック 構成 

表中の S は2バイトのバイナリでレコード長を示していて，自分自身のバイトも含まれていま 

す， 


DRIVE I1 
TRACK I 1 
HED 10 

SECTOR NUMBER FROM f TO il f 1 


0000008000000000 

0000000000000006 

0000000000000000 

0000000080000000 

0000000000000000 

0000000000000000 

0000000060000080 
0000 CD 00000008000 

0000000000000000 

0000000000000000 

00000800 98080000 
0080000000000000 

0000000000000000 

8000000000000000 

0000000000000000 
0000000 B 00000680 

0090000000000000 

0000000800000000 

14 

8000000000060000 
a 0000000080000000 

08000008800000000 
T 8008000000000000 

E 0030000000000000 

s 0000000000080080 

00000808880800000 

0000000000008000 

^00800000800000 0 0 
E 0800000009800000 

0800000000000000 

0600000000000000 


! S 2 
























BASIC の内部礪迤 


C は継統マークで，1八イトのバイ 
01 H になり，その他の場合は常に 00 H , 
ファイルの取り扱い方法は次のよう 

〈新規作成>- 


ードが次のブロ 


BUIL 


GET 答 ， INPUTC 
でレコードを挽込 
む 


ブログラムでは， 


を作成 


0010XXX 
0020XXX SV 
0030XXX 
ee40 WIDTH 80 
0030 COLOR 7,0 
0660 ERASE 
0070 PRINT TAB< 10,3) 

ee8e print tab<is>d: 
ee9ex 

eieex build wd open file 
enex 

0 120 BUILD 
0130 OPEN • 

0140 GOTO 190 

0130"- PURGE OLD FILE 

eue PURGE # - FD2* f •TESTSV 

0170 GOTO120 

eieex 

0190X MAKE DATA 
0200K 

0210 DIM D 
0220 
0230 
0240 

0250 NEXT 
0260 D2^<d ： 

0270K 
0280X 
029eX 
6300 


SV 

ISK 












A ? 

B? 

00 

20 

20 

20 


39 3A 
49 4A 
5? 5A 
69 6A 
7? 7A 
B? 8A 


28 

38 

48 

58 

68 

78 

88 

98 


43 

53 

63 

73 

83 

93 

A3 

B3 


B 0 

C0 

Dd 

Ee 


34 


0 D 


00 


60 

70 

80 

90 

A 0 

B0 

ce 

00 

E0 


00 

10 

20 

30 


: |<->?3ABCDEFGH 
JK し MNOPQRSTUUWX 


?3ABCD 

OPQRST 


のは前述の 


9A 


2C 


CTOR- IS 
03 20 3A 20 
0C 00 0E 0F 


0390)( 

0400X 

0410* 

0426 

0430 

8440 

0430 

8460 

0470 

0480 

0490 

0500 

9910 

0326 

0330 

0340 

0 330 


READ DATA FROM FILE 
PRINT i 

PRINT TAB< 10) |« - NOW READING 

OPEN #«FD2« f -TE8TSV f 1-I* 

GET HI f I f St f Dl^<0) 

CO し OR 4 

PRINT 1 f S.,Dl 拿 < 0 > 

GET IU f I f St f O2t<0> 


PRINT 
GET m 
COLOR 
PRINT 
GET Ml 
COLOR 
PRINT 
CLOSE N 
COLOR 7 


St f O2^<0) 

f 8t f Dlt<0) 

S« f 01«(e> 


cou 

END 



EEEEEEEEEE 0000 
23456789 AB2222 

DDDDDDDDDD0000 
23456789 AB 2222 

cccccccccc 0000 

23456789 AB2222 


600000000000000 
23456789 ABC2222 


1 42434445464748494A4B4C4202020 

333333333333000 
123436789 ABC222 

2^^222222222000 
6123456789 ABC222 






























全て同ーレコード長で作成される.空領域はレコードの長さより短い 
図 7 — 2 — 8 ランダムファイルのレコード形式 

ランダムアクセス • ファイルを取り扱う手順は次のようになリます. 











次のブログラムはランダムアクセス • ファイルのサンプルです. 


eeiexxx 

0020XXX RF FILE READ/WRITE S^iP し E 

eeaexxx 

0040 BUILD ••■FD2- J-RFF1LE* f -RF- f 60 f f 
0030 GOTO 80 

0060 PURGE ㈣ ,_RFF1 し E* 

0070 GOTO 40 

0080 OPEN WFD2* f •RFFILE* f l f M/0- tX 
0090 DIM FDATA«XS0<e>iX 
8lee FDATAt<0> - 
e 110 FOR 1-40 TO 9? 

0 120 FDATA^< 8 > -FDATA^< 0 ) +CHR ♦⑴ 

0130 NEXT I 

0 140 FOR い 1 TO10 

0130 SEARCH Hl f *SR- f IiX 

0160 POT _l,I ， FDATA ， <0>iX 

017¢ NEXT I 

0 180 SEARCH #i f -SR* f 2iX 
0190 GET M1 9 I 9 FDATAt<e>iX 
0290 PRINT I f FDATA#<0> 

0210 GET Hi f I f FDATAt<0)iX 
0220 PRINT I 9 FDATA«<8> 

0230 C し OSE Ml 
0240 END 


9 S y 60iX BUild ^i1• space for FD2 


op#n fi1• 羲 ft input/output 
• tring »paic» 50 


positioning 4or writ* 
writ* data 

positioning for r«ad 
r«4d d4t4 

r 着撬 d d4t4 


ランダムアクセス.ファイルは，フロッピィには次のように？ f き込まれています 


TRACK- 30 HEO- 1 SECTOR- 14 


3- K (60 厂 


00 ! 

101 


40 1 
50 1 
60 1 
70 1 

80 I 

90! 
A0 I 
Be t 
C0I 
D0I 
E0I 
F0i 


40 01 ee 00 00 32 28 2? 2A 2B 2C 2D 2E 2F 30 31 
32 33 34 33 36 37 38 3? 3A 3B 3C 3D 3E 3F 40 41 


201 42 43 44 45 46 47 48 4? 4A 4B 4C 4D AE 4F 96 31! 
30 1 t 52 53 34 S3 36 37 58 3? 20 20 20 20 40 0T 0 0 ~0"e 


ee 32 
36 37 
46 47 
56 37 
2A 2B 
3B 
4B 
20 
2F 
3F 
4E 4F 
40 03 


3A 

4A 

20 

2E 

3E 


28 29 
38 39 
48 4? 
58 39 
2C 2D 


3C 

4C 

20 

30 

4 e 

30 

00 


3D 

4D 

20 

31 

41 

Si 

00 


2A 2B 2C 
3A 3B 3C 
4A 4B 4C 
20 20 20 
2E 2F 30 
3E 3F 40 
4E 4F 50 
40 04 00 
32 33 34 
42 43 44 
32 S3 34 
00 32 28 


2D 2E 
3D 3E 
4D 4E 
20 40 


31 

41 

51 

ee 


32 

42 

52 

00 


33 36 
43 46 
53 36 
2? 2A 


2F 30 
3F 40 
4F 50 
03 00 
33 34 
43 44 
S3 34 
32 28 
37 38 
47 48 
37 58 
2B 2C 


3132 33 34 35 
4142 43 44 43 
3132 33 54 33 
00 ee 32 28 29 

35 36 37 30 39 

47 48 49 

57 38 39 

2B 2C 20 

3B 3C 3D 

AB 4C 40 

20 20 20 

2F 30 31 


45 46 
35 56 
2? 2A 
39 3A 
4? 4A 
39 20 
2D 2E 


3 … .2< >•♦.-./ei 
234367891 |<->?9A 
BCOEFGHIJKLMNOPQ 
RSTUVWXY 9 … 
.2<)«4 f -./ 012343 
67891 ,<->?3ABCDE 
FGHIJKLMNOPQRSTU 
VWXY 3 … .20 
-*/0123436789 
,,<«>?9ABCDEFQHI 
JKLMNOPQRSTLMJXY 
3 • • • • 20 • 

•/012345678?i|<- 
>?3ABCDEFGHIJKLM 
NOPQRSTlMdXY 


7-2-5 インデクス.シーケンシャル • ファイル （ ISF ) 

インデクス.シーケンシャル.ファイル（索引順祸成ファイル）は，レコードが S き込まれた順 
番に関係なくレコードが持つキー（索引）で管理できるようになっているファイルで，他の BASIC 
には見られないファイルです. 

索引ブロックは，レコードが収容されるデータブログラムのボインタと，そのデータブロック 
をたどるためのキーから媾成されています. 

既念図を次に示します. 


186 














コードをキーの値によつて呼び出すので，ファイルの効率が良いという特徴があります. 
ISF はレコードが頻繁に神人追加，削除，史新されるようなファイルに使うと効*的で 


ックの大きさは512バイトで，各データブロック中の般終キーとそのデータブロックへ 
をもっています.索引ブロックは主索引ブロックと副索引1ブロック，副索引2ブロ 
成されています.それぞれのブロックを PIX , SIX 1, SIX 2 と D 乎びます. 




SIX 1 まで 


SIX 2まで 

図7 — 2—〗〗ブロック構成 


ベルが1まで2までかはデータ件数によって自動的に決定されます. PIX は SIX へのブ 
ンタを持ち， SIX はデータブロックへのブロックボインタを持っています. ISF の構造 
と次のようになります. 












瞩 OB 


主索引ブロッ 


mmmmmm 



副索引ブロッ 






咖團_矚翮圍咖翮_ 


iDDBlhlBDDIlIDDDi 


記号 




の構進 


國■■■■画 


?!SS 


図7 — 2—〗3索引ブロック 





7 » OA BASIC の !^: 部忧 ; S 


この図からもわかるように，1ブロックは512バイト2セクタ）（こ固定されています • E は1ブ 
ロック内のキーの数を示す1八イトの16進数であり，キーはブロックポインタ （ BP ) で示されるブ 
ロック中の最終のキー値で，これは14バイトに固定されています.最後のキーは14バイトすベて 
FFH となります.また BP は BOE (ファイル開始位黄）を1とした相対的な位 S で示しています. 

レコードは512バイトのブロックに割り当てを拖されて収容されます.レコードは3〜254バイ 
卜の固定長です. 

図中で E は，そのブロックの レコ ード数 （ 1バイレくイナり）で BP は次のデータのブロックポイ 
ンタで，ブロック内のデータはキーの昇傾に也んでいます. 

ISF の取り扱いは図 7-2-15 のようになります. 


512バイト 



@7-2-14 データ • ブロック 

次のブログラムは 1 SF の作成のサンブルです • 


eeie xxxx 

0020 XXXX is FILE DATA WRITE/READ 
ee3e xxxx 
ee^e width eei 
ERASE 

0030 PRIhfT TAB< ie f S> |"XXX IS FILE S^iPLE ***• 

0060 PRINT TAB<1S 9 6>|"S»t floppy disk for FD2* 
0078* build And op*n X 

0080 BUILD M_FD2_ 9 _IS • 丨 120,2, 100 

0090 GOTO 120 

0100 PURGE ,• iX Kill n«m« U\m. 

0110 GOTO 80 

0120 DIM KEY 攀 X14(0>,DATA1 攀 X104(0) 

0130 OPEN VFD2 11 1 パ 1/0_ 

0 14a DAThi“8>_" 

01S0X data and print d*t* X 

9X69 PRINT SPC<10 )\ m Writ# dat* to 4d2 m 
0170 FOR 1-65 TO168 
0 180 DATAlt<0)-DATAlt<0) ♦CHW< I) 

0190 NEXT I 

0200 FOR 1-65 TO 74 

0210 KEYt(0)-CHR#<I> ♦■000000000000 •♦CHRt<I> 

0220 SEARCH «I1 f -AK - f KEYt<0) 

0230 PUT #l f KEYt<e) f DATAlt<0> 

0240 NEXT I 

8239X r«4d d*t* X 

0260 PRINT SPC<10)R»ad from di«k a i 

PRINT 

0270 FOR 1-70 TO 74 
0280 COLOR 1_68 

0290 KEY^<0)-CHR^<I) ♦■000000000000 •♦CHW< I ) 

0300 SEARCH # l f B SK - f KEY «<0) 

0310 GET Hl f KEYt<0>,DATA1^<0> 

0320 PRINT KEY^<0),OATA1S<0) 

0330 NEXT I 
0340 CLOSE Nl 
0330 END 
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梁 7 » OA BASIC の PS 部优洛 


種:のスクリーンモードが定義されています.スクリーンモードの切換は SCREEN 命令で行います. 
SCREEN に関しての詳しいことは， T-BASIC とほとんど同じなので第 3 章を参照して下さい. 
ここでは， OA-BASIC のグラフ ィ ック機能について説明します. 

7-3-1 T-BASIC との]:激 

OA-BASIC と T-BASIC のグラフ ィッ ク命令は，バラメータやオペレーションがやや異なってい 
ます.漢字の出力等も含•めたグラフ ィ ック命令の比較表を次に示します. 

この中で注意すべき点は， SCREEN 2 のときの LINE と PSET です. T-BASIC では LINE 命令 
と PSET の カラー コードは 0 のときには，背聚 色で その他のときには•寿き込まれた行の 色で 描かれ 
ますが， OA-BASIC では カラーアトりビュートデータを »き込む スペースが あれば色コードは有 
効になります. アトリビュート を势き込む スペースが 無い場合は左方向の表示色で描かれます. 
これは， PRINT でも 同様で， キャラクタに 着色したいときには， アトリビュート•キャラクタを 
丼き込む スペースが あることが条件になります. 

また， 01H 〜 1BH の特殊キャラクタは， T-BASIC ではコントロールキャラクタ（例えば CHRS 
(12) は画面クリア）ですが， OA-BASIC では特殊な機能を示すことはありません. 

しかし 01H 〜 1FH のキャラクタは，ブリンタでハードコビーをとったときには出力されず，かわ 
りにスペースが出力されます. 


07-3-1 OA-BAS，C と T-BASIC の比較 



意味 T-BASIC 

OA-BASIC 

備考 

スクリーン 

表示文字数を変 WIDTH x 
える. (0< x ^255) 

WIDTH x.y 
卜 = 36. 80\ 

し=20, 25ノ 

T - BASIC では行数 
を変えることはでき 
ない. 

モード 





_尚のクリア CLS 

ERASE 



T ■ ■ ■ ■ . 

カーソルを （ x , y > 

に移動. L0CA1E x * y 

PRINT TAB ( x , y ); 


キャラクタ 

二 22 x = POS (0) 

位黃の X 座標. 

y 座標を知る . y_CSRLIN 



表示など 

匕二 U:.「 =SCREENU y> 




キャラクタの反 

紅表示. 

I 1 

SFLG 8,1 

テキストモードのみ . SFLG 

8,0で通常の表示. 


キャラクタで線 
を引く. | 

LINE ( x 0 . y 0 ) 

~( xi * > f i)t A $ 

文字変数や u で网まれた 
キャラクタで描線する. 


WI 










グラフィ 
ッ ク 

点を打つ. . 

PSET ( x , y ). 表示色 

PSKTlx , y t 表ボ色） ( 

T-BASK iSCRKP ： N2 

のとき 第 3 パラメータは * 

規 される . 

描線 

LINK ( x 0f y 0 ) — ^ x , % y ,) 

(•^4Ib b fI11J 

,PSET , 

LINE i ..y. - % . 

PKESKT 1 

•H-Pli 

上と同じ 


画面情報を配列 
に格絡.配列を 
_ 面に出力する. 

GHT («( x 0 . y 0 ) 

— lx „ y ,). A % 
PUT («( x 0 . y 0 ). A % 

卜 ■ —_ - - - - \ 


A % は配列名. 

| ( T - DISK - BASIC .) 
SCRKK .\2 でも |"1じ. 

漢字出力 

漢字の出力 
( SCRKKN 』 

PUTC «( x . y ), 
KANJK & K 1601) 

PRINT &1601 

この例では''亜"をぶ 
示する. 


7-3-2 アトリビュート 

OA - BASIC の LINE 文では，カラーアトリビュートデータを薄き込みます. CRT 上の問じ行で 
複数の色を使いたいときには，色を変化させたいところで15ドット以上の間 M をとり，アトリビ 
ュートデータを湛き込めるようにする必要があリます.次のプログラムでは，そのような条件を 
考慮したグラフ ィッ クのサンブルです. 


0010 WIDTH 801 
SCREEN 2 1 
ERASE 

ee20 COLOR 7,1 
0030 C-l 

0040 FOR 1-19? TO 0 STEP -0 
0030 OOli 

IF 07 THEN C-l 

ee6e line <e > i)-<63? > i) f PSET f 2 

0070 NEXT I 

0086 FOR J-l TO 7 

0090 FOR I-199-J TO 0 STEP -0 

eiee line <iK 2 ,i>-<i» 2 + 2 e ， i> ， pset,c 
0 110 0011 

IF 07 THEN C-l 

0 120 LINE < 639- 1*2 J)-<639-1X2-20 f I) t PSET f C 

0130 NEXT I 

0140 NEXT J 

0150 FOR J-l TO 7 

0 160 FOR I-199-J TO 8 STEP -8 

0170 IF I»2-i6<20 THEN 210 

0180 X1-639-1X2-20! 

X2_I«2 

0 190 IF X1<X2 THEN X-Xl-16 ELSE X-X2-16 
0200 LINE <X-20 f I)-<X f I) f PSET,6 
0210 X1-639-IX2I 
X2-IX2+20 

0220 IF X1>X2 THEN X-Xl^16 ELSE X-X2^ 16 

0230 IF X>63? THEN 230 

0248 LINE <X f I)-<X420 > I) f PSET f 5 

0250 NEXT I 

0260 NEXT J 

0270 J-2 

0280 FOR 1-100 TO 36 STEP -i 
0290 J-J^l 

IF J>7 THEN J-0 


1^)2 




S 7 9 OA BASIC の内部噶浥 


K 


K 

2 


ひらがな.カタカナ17.10 
英字,数字， l^'i 
( 658字分）；点 1 ,点 


16 

K 

2 


JIS 筑•水準漢字 
(3008 字分) 


クタ+64バイト 〖 459セクタ必要 V 


10セクタ+64 


468セクタ+128バイト（於人469セクタ必要) • 


図7 — 4一 1漢字バターンファィルの概略 

i 奥字パターンファイルは，1文字文のハ•ターンを1レコードとしたシーケンシャルファイルで 
す.ハ•ターン格納の相対位3¢をファイルの開始位$を1とすると次のようになります. 

相対位置 図7—4一2 漢字パターンの相対位置 

( レコード No) 



658 


659 


3666 


3667 


4700 J 


^未使用分部 

外卞 Ml 漢字パターンフアイル上には，闷のスペース 

は存在しない. 
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0300 Xl«<100-1) A <5/2>-I A 2 
0310 XWX1/100 

0320 LINE <320-Xl l I)-<320^Xl l I> f PSET f J 
0330 NEXT I 
0340 END 

7-4 漢字入出力 

OA - BASIC で漢字を使うときには，フロッピィディスクの @ KJPAT というランダムアクセスフ 
ァイルから漢字パターンのデータを統み出して使出します.漢字バターンは1字につき 16 X 16 ド 
ットのデータとなっています.1字分のデータの形式は T - BASIC と同じなので第6章を参照して 
下さい. 

7-4-1 漢字/ヽ。ターン•ファイル 

漢字 ハ •ターンファイル @ KJPAT は，ディスクの h の492セクタを A 有し1836字分のデータを持 
っています.このファイル上に次のように漢字ハ•ターンを格納しています.また，利用者が i 奥字 
パターンを史新することによって外字の®録も84区から94区までは可能になっています. 

潢字ハ •ターン ファイルは次の図のような順番で格納されています， 


94K.94 点 



47K94 点 








(区点番号による相対位置の算.出) 


tIM 位罱 =( K *» — 1 >*94+点*じ一 X 


〈 K 点，コードによる扣対位既の算出; 


夺11対位 K-(K コードー 33)*94 + 

(点 コー ド- 32) 

-X 



区番号(区コード） 

X の位 

1から7 

<33から 39) 

0 

16から47 
<48から 94) 

252 

84から94 

(116-126) 

4136(752+1034) 


7-4-2 漢字^ターン入出力 

漢字ノ、•ターンの人出力には文字列民が付加されるため GET ;, PUT # 文を使うことはできません. 
必ず INPUT «/ WRITE « で人出力を行う必要があります . WRITE は， USING を付けて語 g を32バ 
イトにする必要があります. 


データ偭 （10 進) 



データは32バイト 


07-4-3 外字バターンの作成例 


次のプログラムは，漢字パターンの人力の冽です. 

1 H 1 «盤1!1願總| 

PASOP1A の漢字出力 
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•Y, 7 * OA BASIC の!^ 3 ㈣迄 


次のプログラムは，外字の登録のサンブルです.漢字パターンを登録する位置は区番号もしく 
は区点コードで人力する必要があります. 


teeexxx 

1010XXX KANJI FONT EDITOR PROGR^i 
1020XXX 

1030XXX FOR OA-BASIC 

1040XXX 

ldse WIDTH 36,24 
1060 SCREEN 2 
1070 CO し OR 7 # 0 
1080 ERASE 
1090 KSTART 

1100 QOSUB 1740 iX CRT SET 

1110 GOSUB 1590 iX INITIALIZE 

1120 QOSUB 1210iX FONT EDIT 

1130 PRINT TAB<0 f 21)|*END OK <Y/N)•| 

1140 INPUT A 黎 i 

IF <A^-*N B >4<A^-*n*> THEN QOSUB 17401 
GOSUB 21901 
GOTO 1126 

1130 QOSUB 22901* SAVE FD 
1160 QOSUB 27401* DYSPLAY FONT 
1 170 COLOR 6 

1 180 INPUT -CONTINUE < Y/N > jk^ 

1190 IF <Wt--Y-)^<W^--y B >^<W«-CR#> THEN CLEAR i 
GOTO 1030 
1260 END 
1210X 

1220* EDIT FONT 
1230X 

1240 GOSUB 21901* FONT OUTPmr 
1230 XPOS-li 

YPOS-1iX SET INITIAL POINT X,Y 
1260 SFLO1,0iXX COURSOL OFF 
1270 PRINT TAB<5 f 3+YP0S>|FOKT 瘳 <YPOS> 

1280 PRINT TAB<4+XP0S,3+YP0S>| 

1290 SFLOl f liXX COURSO し ON 

1300 Wt-KINt 

1310 IF NULL THEN 1300 

1320 SF し G 1 9 0iXXX COURSOL OFF 

1338 IF WV-CR» THEN RETURN 

1340 IF <W^-RARROW^> K<XPOS<16) THEN XPOS-XPOS+1 
1350 IF <W^-LARROW^> K<XPOS>1)THEN XPOS-XPOS-1 
1360 IF <W#«UARROWt)X<YPOS>1)THEN YPOS-YPOS-1 
1370 IF <W^-DARROWt)*<YPOS<16) THEN YPOS-YPOS+1 
1380 IF Wt-* ■ THEN MIM <FONT ♦ く YPOS> ,XPOS,1>_• •• i 
PSET (XST^XPOS-1 f YST^YPOS-1> 

1390 IF W ♦ 勝 _0* THEN tAlOt <FONT ♦ く YPOS> f XPOS f 1>0_ i 
PRESET (XST^XPOS-1 f YST^YPOS-1) 

1400 IF Wt-PFt<8) THEN GOTO 14301 XXX FONT CLEAR CKECKXXK 
1419 IF W^-PFt<1> THEN GOSUB 1?36 iX HELP 
1420 GOTO 1260 
1430X 

1440X FONT CLEAR CHECK 
1430X 

1469 CO し OR 6 

1470 PRINT TAB<0 f 21>|-FONT CLEAR OK <Y/N) - j 
1480 INPUT A 參 

1490 COLOR 7 

1300 PRINT TAB<0 f 2l> |SPC<35) 

1518 IF NULL THEN 1480 

1520 IF <A*--Y - )THEN GOSUB 13501 
GOSUB 17401 
GOTO 1210 

1330 IF <A ♦- *N*>♦<A»--n B ) THEN GOTO 1266 

1540 GOTO 1480 

1550X 

1560* INITIALISE 
1570X 



1390 FOR 1-1 TO \6 
1600 FONT^<I>-STRINQ^<16 
1610 NEXT I 
1620 FONTNO-1 

1630XKKXXCONTRO し C^RACTOR 


640 CR^-CHW<8) 
i690 UARROWt-CHW 
1648 DARROW^-CHW<t IF) 

1670 LARROW^-CHR» <♦1D> 

1686 RARROW^-CHW<tlC> 

U90 DIM PF 毒 ) U<8> 

1700 FOR 1-1 TO 6 

1710 PF，< "_CHR ， < ， 10+1> 

1720 NEXT I 
1730 RETURN 
1740K 

17S0M CRT INITIALIZE 
1760* 

1770 ERASE 

1780 PRINT •<< KANJI EDITOR 4or T-BASIC >>• 

1790 PRINT TAB<4 f 3> |* r m |STRINO»< 16, 

1806 FOR 1-4 TO19 

1810 PRINT TAB<4 f I) |-|SPC<16) | B I" 

1820 NEXT I 

1830 PRINT TAB<4 f 20>|* ^,STRIN6^C16 f |-^* 

1840 PRINT TAB<28 f 3)|-FONT- 

1830 COLOR A 

1860 XST-230 

1870 Y8T-40 

1680 CO し OR 4 

1890 PRINT TAB<4 t 23) |-f- ノ t ツメ 〆 雌、【 PF1 】 V7.- | 

1900 COLOR 7 

1916 LINE <XST-1 f YST-l)-<XSTt17 f YST4I7> f PSET f 7 f B B a 

1928 RETURN 

1930X 

1940 夷 COMW«> INSTRUCTION 
1930* 

1966 ERASE 
1970 CO し OR 4 

1980 PRINT •>> COMV^ND IS FOLLOWING." 

1990 COLOR 6 

2000 PRINT ■ ■|UARROWt|TAB<10)|*i coursol up. 

2010 PRINT • •|DARROW«|TAB<10)|*i cour^ol dow 

2020 PRINT • •|RARROW^|TAB<10)|*i coursol rig 

2030 PRINT ■ ■|LARROWt|TAB< 10)| B I coursol1 

2948 PRINT 
2050 COLOR 3 

2040 PRINT _ |TAB<10)| B i %•% dot.* 

2079 PRINT ■ C 0 1*|TAB<10)| - i dot.* 

2080 COLOR 6 
2090 PRINT 

2100 PRINT • Cr»turn)*|TAB<18) |* i «nd oi »dit mod 
2110 PRINT • C PF 1]•|TAB<10>|*• output this 
2120 PRINT * 【 PF 8 }■|TAB<10)|«I font c1.• 

2130 PRINT 

2149 INPUT *OK >>HIT RETURN KEY_|A 黎 


CHW< ， 1E> 

CHW<tlF) 

CHR^(^ID) 


ERASE 
CO し OR 


4 

•>> 


COMV^ND IS FOLLOWING.* 

•|UARROW^|TAB<10>|*i cour»ol up.* 

•|DARROW«|TAB<10)|*i cour^ol down•■ 
•|RARROWt|TAB<10)|*i cour 黎 oi right. 
_■LARROWtiTAB<10>| •肅 coursol1t.• 


C«PAC 翁】 •|TAB<19) 
C 0 3*|TAB<18)|- 


i dot• 

rm%mt dot• 


• Cr»turn)*iTAB<ie>| s i * 
• 【 PF 1 】 •|TAB<10>••l < 
■ t PF 8 )■|TAB< i0> |- l ， 

•OK >>HIT RETURN KEY 11 |A 瘳 


•nd oi #dit 
output this 
font c1«4r• 


mod*.■ 


60 60SUB 1740iX CRT INITIALIZE 
70 GOSUB 21901* output font for crt 
80 RETURN 
90* 

!00X FONT OUTPUT 
!10X 

220 FOR 1-1 TO16 

230 PRINT TAB<3,3+I 〉 丨 F0NT»U> 

240 FOR J-l TO16 


2278 NEXT I 
2280 RETURN 


2290* 




2390 FOR 1-1 Ti 
2400 W-0 

2410 FOR K-l 

2420 IF MI 

2430 NEXT K 

2440 KNJPAT^-M 
2430 NEXT 1 
2460 NEXT J 
2470XXXXX INPUT 
2480 PRINT し EA 

〇 /toa dot krr » 'Kin 


FOR 1-1 TO 9 STEP 0 
W-0 

FOR K-l TO 8 

IF MIDt<FONTt<J) f l+ 
NEXT K 

KN JPAT，-KN JPAT 秦 ♦ CHR ♦(⑷ 


I+K t l> ■■ 參 • THEN W-W42 A <8-1 


2470XXXXX INPLH" KfiiAJ1 CODE 

2480 PRINT •PLEASE INPUT KUTEN OR CODE* 

2490 PRINT _ NO .•.1" 

2308 INPUT _ CODE … 2 I* |A 
2910 IF <A-1>♦<A-2>-0 THEN PRINT i 
GOTO 2460 

2520 IF A-l THEN TYPE^-*NO- ELSE TYPE•CODE* 

2330 PRIKT 

2340 PRIKT "PLEASE INPUT KUTEN •|TYPE^|* i - 
2330 PRINT - Cku] 9 C t#nl b^9 二 i ウ•ノ ■クシ贄ク W • 

2360 INPUT ■ i * |KUTENl f KUTEN2 

2370 IF (KUTEN1-0)♦(KUTEN2-0) THEN 2940 
2980XXXXX GET PLACE FOR KM^JI DATA 
2390 GOSUB 2890 
2680 HDATA-0 

2610 IF <Kin^EN 1>-RECDATA< i> > «<KUTEN 1-<RECDATA<2) > THEN HDATA-0 i 
GOTO 2669 

2620 IF < KUTEN1>-RECDATA< 3>)X < KUTENl-< RECDATA< 4)) THEN HDATA-7S2I 
GOTO 2669 

263B IF <KUTEN1>-RECDATA<3))X<KUTENl-<RECDATA< 6 >> THEN HDATA-4136 
GOTO 2660 

2640 PRINT "KUTEN ■ |TYPE^|* ! • i 

GOTO 2540 

2690XXXX 8**rch plac# for writ* K*nji ion t • 

2660 8EARCHN0-< KUTEN1-1)X94 + KUTEN2-HDATA 

2670 IF TYPEt--CODE # THEN SEARCWO-<KOTEN l-33> M?4^<KUTEN2-32) -HDA' 
2680 OPEN •••FDI* f -aKJPAT- f l f M/O - 
2690 SEARCH ㈣ 1,_ SR_ , SEARCWO 
2700 FORf^T^-*% - ♦8TRING»< 30 f • 

2710 WRITE Ml USING FORf^Tt | KNJPAT^ 

2720 CLOSE Ml 
2730 RETURN 
2740X 

2730X DYSPLAY FONT 
2760X 

2770 IF TYPE ♦- *NO # THEN 2800 
2780 KUTENl-KUTENl-^20 
2790 KUTEN2-KUTEN2 - t28 
2609 W It-" 0^STW< KUTEN 1> 

2810 Wl^-RIGHT^<Wi^ f 2) 

2820 N2^- - 0^STR^<KUTEN2) 

2830 W2^-RIGKTt<W2^ f 2) 

2846 UU 拿 - 

2850 KNJ い KANJ1& く Wl，> 

2860 PRINT -RECORD NO-- 丨 SEARCHNO 丨 ■ •|KNJ^ 

2870 PRINT 
2880 RETURN 
2890 » 

2900* READ DATA FOR CHECK KUTEN 
2910* 

2920 RE! 

2930 DU 
2940 FOI 
2930 READ RECOATAU) 

2960 NEXT I 

2970 DATA l f 7 f 16 f 47 f 84 f 94 

2980 IF TYPE^ B NO« THEN GOTO 3d30 


^ 77 ! ! 


2980 


NO - THEN GOTO 3630 
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2990 FOR 1-1 TO 6 
3000 READ RECDATAU) 

3010 NEXT I 

3626 DATA 33 f 3? f 48 f 7? f 116,126 
3030 RETURN 


漢字人出力のユーティリティとしてカナ漢字ハ•ッヶージが東芝より発売されています.この内 
容は漢字人カサブルーチンと漢字バターン登録ユーティりティです.持に i 奥字パターン登録ユー 
テイリテイを使用することにより外字の登録は容易になります. 


19H 



第 B 章 

MINI-PASCAL 


8-1 醜 

8-2 MIN 卜 PASCAL のしく み 
8-3 T-BASIC との比較 








第 8 章 MINI-PASCAL 



8-1-1 PASCAL (パスカル）とは？ 

この电では， PASOPIA 用 ROMPAC ， MINI - PASCAL について説明しますが，その前に PASCAL 
とはいったいどんなものか，という点について少し説明しておきましょう. 

PASCAL というのは， BASIC , FORTRAN などと同じく，プログラミング言語の名前です. 
今まで BASIC しか使ったことのない"には，わかりにくいかもしれませんが，人間が コンピュー 
夕に自分の意志を出えるには，ある定まったスタイルに從わなくてはなりません.その形式がブ 
ログラミング言語と时•ばれるものですが，その中で L 持に人間にわかりやすく，記述しやすい宵 
i 语は岛級 J 語と呼ばれ， BASIC , FORTRAN , そしてこれから話をする PASCAL などの u 4 語が 
その代表とされています. 

普通，バーソナルコンピュータには，はじめから初心者でも使えるように，そのためのブログ 
ラム言語 （ BASIC インタブリタ）が組み込まれているのですが，こ U はあくまでもブログラムです 
から，それを人れ換えれば，他のプログラミング言語も使えるようになるわけです.パソピアの 
場合， ROMPAC の差し換えだけで，それが可能になっています. 

それでは， PASCAL の特色について説明しましょう. 

PASCAL は，1970年， N . Wirth によって開発されたものであり，その名前は，フランスの数学 
者，物理学者，哲学者であるブレーズ•パス々ルにちなんでつけられました.これは，彼が計算- 
機の初期の開発者であるためです. (バス々ルは，実用町能な計算機を製作した一人と言われてい 
ます.もちろん歯率式ですが). 

この PASCAL の設計思想は，--言で言えば， W 造化プログラミングを可能にしたことです. 

これをわかっていただくために， BASIC との対比をしてみましょう.まず， BASIC の複雑なブ 
ログラムを思い出して下さい.いきあたりばったりに大きなブログラムを BASIC で書いた結果， 
自分でも何だかわからなくなってしまった経験をお持ちの方も少なくないことでしょう.また， 
他人の害いたプログラムを解読するときに，非常な努力がいるということも言えます.この原因 
としては，次のようなことが考 i られます. 
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① GOTO 文であちこちとびまわることができるため，プログラムの流れが追いにくい. 

② FOR 〜 NEXT 以外のループは • GOTO 文によって脱出するため，どこからどこまでがルー 
ブなのかがわかりにくく，持に多重ループになるとますます混乱する. 

③ 変数名が勝手に使えるため，型の混乱を生じやすい. 

④ 複数の文をつなげるには，単にマルチステートメントにして並べるだけのため，文のまと 
まりがわかりにくい. 

⑤ データが相互に関連を待った形で扱えず，むやみに配列に傾るため，データのまとまりが 
昆えにくくなる. 

このように， BASIC には，ブログラムの流れをさまたげる，多くの欠点があります.対して PASCAL 
はどうでしょう. 

上の5つに対応する PASCAL の特色をあげると，次のようになります. 

① GOTO 文は，伴通使用しない. （ GOTO * のないプログラミングイコール擠造化プログラミ 
ングと言われることさえある）. 

② ループの表現には， FOR 〜 NEXT のはか， WHILE 〜 DO . REPEAT 〜 UNTIL があり，敗 
からブログラムを|光んでいってもループの怫造がはっきりわかる. 

③ 変数は，その名前，型をすべて前もって宣@しなければならず，また，その有効範囲もは 
っきりしておりわかりやすい. 

④ 後数の文をまとめる BEGIN 〜 END があり，まとまりが明確になる. 

⑤ S 苗なデータ型を扱うことができる. 

このように， PASCAL によるブログラミングでは，ブログラムのすっきりとした直線的 W 造と 
データの相互に結びついた怫造を実現することが可能になっています.このような，ブログラム 
手法を W 造化ブログラミングと呼ぶのです. 

PASCAL には， BASIC などのインタブり夕と違って，はじめにブログラムを機械語などに翻訳 
してしまい，まとめて実行するコンハ•イラという方式をとっているものや， P コードと呼ばれる 
コードに翻訳して，実行の際は， P コードインタプリタでそれを解釈する方式，ハード的に直接 
P コードを実行する方式（ハ*スカル•マイクロエンジン等）などいくつかの型式がありますが，先 
はど述べた W 造化ブログラミングはどのタイプでも関係なく可能です. 

以上，既略を説明してきましたが， PASCAL は，そのわかりやすさと強力さのため，現在世界 
中で急速に普及しつつあり， FORTRAN や BASIC にかわって，次の時代の中心となるプログラミ 
ング言語として，大きな期待がかけられています. PASCAL を知ることは，プログラムの設計ゃ 
解釈に十分役立つことと思います. 


202 



.y, 8 » MINI PASCAL 


8-1-1 では， PASCAL の既要について説明してきたわけですが， PASOPIA 用 MIN 卜 PASCAL 
についてはどうでしようか. 

同じ BASIC でも機 M によってさまざまな違いがあるように • PASCAL でもいくらか違いがあり 
ます.ここで述べる PASOPIA 用 MIN 卜 PASCAL は，慄準的 PASCAL とは違い， PASCAL の基本 
的なしくみをマスターするための教育用システムと言えるものです. 

まず，標準的な PASCAL に比べ以ドの点が縮小されています. 

① LABEL が付けられない. 

② 定数，型 ( CONST , TYPE ) が定義できない. 

③ 変数の型は，览数型 • 文字型のみで， ftd 列は格数切しかと U ない.そのため，他の型を必 
要とする文や関数等はない. 

④ CASE * がない. 

⑤ インタブリタである. 

また，逆に PASOPIA の能力を，4:•かすために，グラフィック関(系の命令や PEEK , POKE ， CALL , 
ADR , INP , TIME などが追加されています.したがって，一般に PASCAL 用として％炙されて 
いるブログラムを走らせる際は注意が必要です. 

このように，機能的にある程度制限されてはいますが，低価格のハ•ーソナル•コンピュータ用 
にディスク不用で手奸な ROMPAC として PASCAL が発充されたということは，大いに注目すベ 
きことで この MINI - PASCAL は， PASCAL の特徴的な記述スタイルを身に付けるには十分な機能 
を持っています. 

今まで BASIC しか使ったことのなかった方々も，こ iU こよって PASCAL の世界に目を向けて下 
さることと思います. 

8-1-3 ブログラムの構成 

では，具体的に MINI - PASCAL のブログラムについて説明することにしましよう. MINI-PASCAL 
では， BASIC のように命令を直接実行(行番号を付けずに実行）することはできません.それに， 
プログラムの*き方も般初はわかりにくい点がありますので，しっかり覚えておいて下さい•で 
は，まず次のブログラムを見て下さい. 

1 PROGRAM SAMP し E| 

2 VAR A f B f C f DtINTEGER| 

3 BEGIN 

4 WRITEtMnput n f b*? O | 

3 READ<A f B) i 

6 Ci-AXBj 

7 Di«A DIV B| 
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3 WRITE< / *Xb- / ,C,/>| 

? WRITE< / */b- / ,D,/> 

10 END. 


このブログラムは，単に説明のためにつくったもので，大して：®味はあ*)ませんが， MLNH-PASCAL 
のプログラム W 成はよくわかると思います. 

まず，ブログラムは PROGRAM ではじま 1 ) '"(ピリすド）で終わらなくてはなリません•そ 
して， VAR ではじまる変数寅言部があり，その後に手絞き宣 H 部，閲数宣3部が絞き，実行部は 
BEGIN ではじまり END で終わります. 

変数宣言部というのは，プログラム中で使う変数名，型を前もって nM しておくもので ， BASIC 
と違い勝手に変数を使うわけにはいきません.これは、変数を全く使わないプログラムであれば 
不要です. 

手統き宣言部，関数宣言部というのは， BASIC のサブルーチンや間数の定義などにあたる I の 
で，これも前もって宣言しておかなくてはなりません.そして，それぞれ VAR ではじまる変数宵 
g 部， BEGIN から END までの炎行 SI ; で成りしっています.こ U らも，他わないときは宣言しなく 
てもかまいません.また，报数の手絞きや閲数を宣言することもできます. 

次に，前出のブログラムを昆て''ゾが多く使われている*に; 1:. H して F さい.これは，文の 
区切りであり， BASIC の''ゾと似ています.しかし，どういうところで付けなければならない 
か，どういうところは付けなくてよいか，という点で混乱しがちです.実際， W 期のマニュアル 
のブログラム例は混乱していますので，次にまとめておきましょう. 

まず，ブログラム頭 SIS , 変数宣3部.手校き寅•才部，関数直, i 部，ブログラム奥行部を区切る 
ために 、'.、.• が必要です.また，文と文の間も ，：” で区切ります.しかし，ここで文とは一沐 
何を意味するのかですが，正確な定義は 8-2-1 の W 文!^を R ていただくことにして，ここでは 
簡単に説明しておきましょう. 

① 代人文 

② 手続きの呼び出し 

③ IF 〜 THEN 〜 ( ELSE 〜） 

④ WHILE 〜 DO 〜 

⑤ REPEAT 〜 UNTIL 〜 

⑥ FOR 〜 TO ( DOWNTO ) 〜 DO 〜 

⑦ BEGIN と END が で区切られた文をはさんだもの 

以上のものを文と考えて下さい.ただし定義⑦の中で，文という言葉がありましたが，これは 
循環論法的定義ではなく，いくつかの文があったとき，それらを'':"で区切り， BEGIN と END 
ではさむとあらたに文ができるということです.ここで注意することは， BEGIN , END , その他 
の予約語は文ではないということです.つまり， BEGIN と END の間に文が4つあるとすれば，必 
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要な 、、ゾ は 3 つで， BEGIN の直後， END の直前には不要にな 1 2 3 4 5 )ます • 

また，③〜⑥の定義の中で〜と苒いたところにも，いくつか文の人る場所があります.定義⑤ 
の REPEAT と UNTIL の間 （REPEAT の後， UNTIL の前には マ. は不要です）に，複数の文を 
'、："で区切って人れることができます.定義③，④，⑥の ELSE , THEN , DO の後には，1つ 
の文を人れることができます•こういう場所に複数の文を人れたいときは， BEGIN と END ではさ 
み '、•， で区切って1つの文とすることができます. 

以上，説明の例として次のプログラムをあげておきますのて％ ”：" の人る位萬，人らない位 S 
をマスターして下さい. 


の必要な場所、不要な場所 


2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
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PROGRAM SAMPLE; 

^AR A,B f C,D,EsINTEGER; 
BEGIN 
As=*10 ; 

B:*-5 j 
C:=A+B; 

D:=2XA^B DI リ 2; 
REPEAT 


クラぃ飧部の!？ 


てパ 

• ^ r r . Z 


8 EGIN ではないので不茫 
乂•の文との:？づ2•怒 

./ ： ^REPEAI-UNTIL A - も つ ；) SC tKi. 
REPEAT 1 ； 5 T ；： ないのて / « 


A ： *A-1 ； 

WRITE< ハ /〆 〉； 
B:*B+ 1 

UNTIL A<0; 

WHILE B>6 DO 
BEGIN 

B:=B>0-C; 
D:=D DIV 2; 
WRITEdO 
END; 

FOR D:=i TO C 00 
BEGIN 

WRITE< | 
WRITE< / X / > 
END 

END. 


] 次のの 5: 切りに必 C 

次文で U ないので不 15 
次の艾 WHILE ^ Hnf ) c のつりに么恭 
〇〇のあとは j た义の H きなのでそ e 
BfGiNJSrd ないのてブ® 

] 次の文この5切りに必© 

欠の ENDU 文 TU ないのでろ C 
次の X FOR -23^^ との!？切りに 
〇〇の A と U •し # S の妗みなの ， f C 
BEGlNiiScr 二ないので不® 

次の文との区切りに必轚 
」次の ENDdx •、い4、 のて不 C 
II 令なの r ノ “ ， tfitz 


さらにもう1 つ'、 ソ'について説明を加えておきましょう. BASIC では，行の終わりには単に 
RET キーを押すだけで，、'ノを付ける必要はありませんでした.しかし，今までの例でわかるよ 
うに行の終わりにも•ノを付けて改行しているところがたくさんあります.これは， pascal 
では行の区切りというのは，単にブログラム上の目安でしかなく ''ノがあれば区切り，な 
ければスペースとみなすからです（ただし • コメント，，で囲んだ文字列などの場合は別です）•し 
たがって 、、.、，， を忘れると，その次の行とつながっていると解択されてしまいます.逆に1つの 
行でも 、、ゾ で区切れば，複数の文を* くことができます. 

以上の説明の例として，次の3つのブログラムを比べてみて下さい.これらは，いずれも同じ 

働きをするブログラムです. 


1 PROGRAM SAMP し E 11 

2 VAR X f Y f ZiINTE6ER| 

3 BEGIN 

4 WRITE< / x«? O | 

5 READ<X> j 
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6 WRITE< ， y-? ，> | 

7 READ<Y>| 

8 Zi-X*X^YXY| 

9 WRITE< / x*x*yXy f 2> 

10 END. 
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PROGRAM S^iP し E2 慕 
UAR 

X f Y f ZiINTE6ER| 

BEGIN 

WRITE 

<、_?/> 1 
READ<X) 

I 

WRITE 

< / y -? O | 

READ<Y)| 

Zi- 

XXX 

♦Y»Y 

I 

WRITE 

(^xHx^yliy m • 

z > 

END. 


1 PROGRAM SAMPLE3| VAR X f Y f 2iINTEGER| BEGIN WRITE じ x_? 〇丨 REAO<X>| WRITE く， y- 
? ，>事 

2 READ<Y)| 2i-XKX4Y*Y| WR1TE< ， xXx+y»y t Z>END• 


以上でわかるように，は R 切りをはっきりさせる印です.必要なところで忘れないように 
十分注意して下さい. 

般後に，インデント（ブログラムの段付け）について説明しておきましょう.この祆や MIN 卜 PASCAL 
付诚の マニュアル • 一般の PASCAL 解説？ f などのブログラム例では，通常， BEGIN , END 等で 
はさまれた文を右にずらして段が付けられています.これは，ブログラムの怫造を見やすくする 
ために付けられたもので，文法的には，はっきり決まっているわけではありませんが • 適切なイ 
ンデントを行う習憤を付けておくことが望ましいでしょう. 

例えば次の3つのブログラムは • いずれも同じ働きをしますが，どれが一番わかりやすいかは 
言うまでもないでしょう. 


1 PROGRAM S#V1P し El| 

2 VAR INPUT,SUMSQR.COUNTERiINTEGER! 

3 BEGIN 

4 WRITE< 7 input N’〆〆 ？，〉 多 

3 READ< INPUT) | 

6 SUMSQR1-8| 

7 COUNTER:-INPUT| 

8 WHILE COUNTER>0 DO 

9 BEGIN 

10 SUMSQRi-SUMSQR^COUNTERXCOUNTER| 

11 COUNTERi-COUNTER-1 

12 END| 

13 WRITE じ _SIH o+ lXl f 2X2,... f NXN*- ^ f SUMSQR,/) 

14 END. 
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1 PROGRAM SAMP し E2| 

2 VAR INPUT,SUMSQR,COUNTER I INTEGER| 

3 BEGIN 

4 WRITE< / input N"| 

3 READ(INPUT)| 

6 SUMSQRi-0| 

7 COUNTERi-INPUT| 

8 WHILE COUNTER>0 DO 

9 BEGIN 

16 SUMSQRi-SUMSQR^COUNTERXCOUNTERi 

11 COUNTERi-COUNTER-1 

12 END| 

13 WRITE< / *SUM oi 1X1,2X2••••,NXN • 麵 ， ,SUMSQR,/> 

14 END. 
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PROGRAM S#ViPLE3| 

VAR INPUT,SUMSQR f COUNTERiINTEGER| 
BEGIN # 

WRITE く ， input N ， •/〆？，> I 
READ<INPUT)i 
SUMSQR1-0i 
COUKTERi-INPUTi 

WHILE COUNTER>0 DO 


BEGIN 

SUMSQRi-SUMSQR^COUNTERXCOUNTE 

CO 


lUNTERi-CO 



END | 

WR!TE< /B SUM 1*1,2«2 f ..• f NKN•- 

END. 


• f SUMSQR,/> 


8-1-4 エディタの使い方など 

ここでは，本に政っているブログラムや自分で考えたブログラムの人力方法，また人力したブ 
ログラムの変史法や保存法について説明します. 

MINI - PASCAL で使用される文字は，英字 （ A 〜 Z >, 数字 （0 〜 9), 特殊記号（+ ,—， 

*,/，：= . <>,<=，>=•>，<•(，），[，]，（*,*>, #) です.ただし，コメン 

卜や”〃ではさまれた文字列中には，これ以外の文字を使ってもかまいません. 

本に故っている PASCAL のブログラムは，しばしば英小文字で»かれており， BEGIN などが太 
字になっていますが，ここではすべて英大文字を使います（人力するときは，小文字を使ってもか 
まいませんが， LIST をとると大文字になっています). 

BASIC と異なる使い方をする特殊記号については•：二は代人，し]は配列， （*, *) はコメン 
卜として用います.また，2文字からなる特殊記号の間にスペースを人れたり，く〉，<=,> =を 
それぞれ〉<,=く， =•> としたりしてはいけません. 

BASIC と違うキーの使い方について，次にまとめておきましょう. 

① T , i , — ， — ， DEL , INS , スペース以外のキーは，押したままにしてもリピートしませ 
ん. 

② CTRL キーと STOP キーは，プログラムの実行を中断させるため，同時に押したとき以外は 
無効です. 

③ ESC キーは人ハの 際 ， BASIC の STOP キーと 同様の効果があり， その人力をキャンセルして 


改行します. 



④ ファンクションキーは無効です. 

⑤ T ， I のキーは， EDIT 時は人力を受け W ナ，上下の行を表示しますが， INSERT 時は KET 
キーと同じ働きをします. 


CLS , HOME , LABE し TAB などのキーは無効です. 

— ，—のキーは，すでに文字を人力した範囲のみ有効で，左右の端まで 
ききません. 

DEL キーのきき方は BASIC と違い，カーソルのある位策の文字が抹消さ 
文字列は一文字ずつ左へずれます. 

上のことに注意して， MINI - PASCAL のプログラム人力をして下さい. 

に，エディタの各命令についてですが，くわしくは f ， j « のマニュアルに谋 


解釈するた 


ft びの場合 


it しくない文が受け付け 
EDIT の際 一 S 上の行で 
ます . DELETE ni , n に 
n 行分を表示」の意味に z 


のスペースは， Llbf の際人力した通りに表示されますが，その他ダ 
ベて詰められてしまいます.必要なスペースとは， ft f 約語の前後 
予約語の前後に” r などの持殊記号がある場合(： 

以外のスペースは，人力しても意味がないとい*; 

以上，エディタの一般的使い方にはあまり触れ 
インタ〃の考えをしっかりつかんでエディタを扣 


8-2 Mim-PASCAL のし〈み 


構文図 


ここでは， MIN 卜 PASCAL の文法などの細か 


話を進め 






これが図というもので，この図は因子はどういう|«きをするかを示しています.枝分かれ 
している矢印は「または」を表します.すなわち，この図は因子とは， 

① 格数型定数 

② 16進数定数 

③ 文字定数 

④ 変数 

⑤ 関数名，あるいはその後に、' ではさまれ''/で区切られた式が1つ以上並んだ 

もの 

⑥ ''(へ'')"で式をはさんだもの 

⑦ NOT と因子を並べたもの 


のいずれかである，ということを意味しています.⑤については矢印がルーブになっているとこ 
ろが「式」または「式，式」または「式，式，式 j または，「式，式，式，式，…… j という意味に，- 
ので，結局，式を1つ以上並べて間を'"で区切ったもの，ということになります.また，（7〕 
ついては因子に NOT を付けると，それもまた因子である，ということを示しているのです. 

では，以下に他の«文図をあげていきましょう.なお，矢印がループになっているところ • 
そのループのまわる回数に限度のあるものについては，そのつど説明を加えます. 

まずは，名前，整数型定数，16進定数，変数，文字定数です.名前は8文字以内なので，/ 
プをまわる回数は〇〜7です..整数型定数は〇〜32767の範囲，16進定数は4桁以下となりま 
変数名の後に [,] が付くのは配列の場合で， MINI - PASCAL では一次元配列しかないため式 (. 

つだけです.文字定数の文字とは，キーボードから打ち込めるあらゆる文字のことです.ここ 
















•引数の並び 




:1です. PROCEDURE , FUNCTION な 



今度は文の構文図です. 8-レ3で簡単に定袭 
うち，一番下の何も通っていない矢印は空文と 
也べると，その間には空文があるとみなされます 
しか書けないことに注意して下さい. 
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骹後は，プログラムの構 t 図です.こういう形で表すと，プログラムとは何かがはっきりわか 
ると思います. 

8-2-2 変数にっいて 

MINI - PASCAL の命令1つ1つについて説明を加えていくことはできませんので，マニュアル 
にはっきり羿かれていないところ，わかりにくいところ，面白い使い方等に校って説明すること 
にします.まずは，変数についての話です. 

MINI - PASCAL で許される変数名は吳字ではじまり，莢数字からなる8文字以下の文字列で， 
使用する変数名は前もって VAR の後で莨言しなければなりません.しかし，変数を宣言する場所 
はプログラム内に1か所•だけではなく， PROCEDURE . FUNCTION の中にもあります.では， 
これらの間の閲(系はどうなっているのでしょうか？ 冽えば，それぞれの中で同一の変数名を宣 
苔して使うとどうなるのでしょうか. 

BASIC では，変数の肓豸をしないので，プログラム中のどこでも変数名は同じ侦を持っていま 
すが， MIN 卜 PASCAL ではそうはいきません.ブログラムの煅初の部分 （ PROCEDURE や FUNC - 
TION の⑹）で m •された変数をグロー八ル（人域；変数， PROCEDURE や FUNCTION の中で莨言 
された変数をロー々ル所）変数と呼びます.ロー々/レ変数は，その PROCEDURE または， FUNC ¬ 
TION の中でのみ有効です. それに村し，グローバル変数は原則的にはブログラム全体で有効です 
が, PROCEDURE , FUNCTION の中で闻じ变数名が宣首されている場合は,その PROCEDURE , 
FUNCTION 内では 口ーカル 変数の/;•が»先で，その変数名は PROCEDURE ， FUNCTION の中 
で代人された値を持つことになります.しかし， PROCEDURE , FUNCTION から戻って来ると， 
洱びグローバル変数として扱われ， PROCEDURE , FUNCTION の内部で代人された値は捨てら 
れ，呼び出す前の値が回 m されます.例えば • 次のブログラムの実行結果を見て下さい. 
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PROGRAM SAMP し E| 

VAR I f JiINTEGER| 

PROCEDURE TESTj 
リ AR IiINTEGER| 

BEGIN 
I t»100 \ 

Ji-2001 

WRITE く ' ...in pr oc«dur •，,/ 〆 i _ ， • し /〆 J ■ ' f J f /> 

END | 

BEGIN 
I 1-101 
Ji-20| 

MRITE< / . • proc#dur# / ，/, / i ■ ^ f I ^ J - %%!•/>• 

TESTj 

WRITE< / ••.a4t#r proc#dur» / f / "i - / f It/f"J - 'tJf/> 
END. 


PROCEDURE , FUNCTION の中から,さらに PROCEDURE , FUNCTION を呼び出している 
ときも，今と同様同じ変数名であらたに定義されていれば，ローカル変数が有効となり，そうで 
なければグローバル変数が有効となります.また，はじめの方の PROCEDURE , FUNCTION で 
宣言されたローカル変数は，他の PROCEDURE , FUNCTION を呼び出したときは無効となりま 
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t . 

その例として，次のブログラムの実行結果を廷て下さい. 


2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 
\6 

17 

18 
19 
26 
21 
22 

23 

24 

25 


PROGR/Vi S^1PLE| 
VAR I f JiINTEGER| 
PROCEDURE TEST 11 
リ AR !iINTEGER| 
BEGIN 


i i«ieei 

Ji-200I 

WRITEC" . . .in proc#dur#r f / f 
TEST2| 

WRITE 《， ••• 孤ザ t 春 r proc^dur#? 7 
END | 

PROCEDURE TEST2| 

MAR JiINTEGER| 

BEGIN 





SJ •ハ 


i i-ieeei 
Jt-2eeei 

WRITE く ， ...in proc»dur#2 / ，/ f "i - SI〆〆」■ " • J,/> 
END | 

BEGIN 


I l-10| 
Ji_20| 
WRITE< 
TEST 11 
WRITE く 
END. 


b 费 for 譬 proc*dui 


“t 翁 r 



さらに， PROCEDURE . FUNCTION には，変数の侦を 1 jl き渡すことができます.特に FUNCTION 
のときは，これができなくてはどうにもなりません. PROCEDURE . FUNCTION の肓甫の際， 
名前に統けて'* (•と” •で変数の並びをはさんでおき,呼び出す除に PROCEDURE や FUNCTION 
の名前の後に、'("と，）"で値を也べたものをはさむ，ということです. f 列えば ， PROCEDURE 
SAMPLE ( A , B : INTEGER ) :と直言しておき，出す際に SAMPLE ( 1, 2 > とすれば， A , 
B にそれぞれ1, 2という値が人ります.このとき • A . B は PROCEDURE 内部で定義されたロー 
カル変数と间じ扱いになり，ブログラムの実行部にグローバル変数 A ， B があっても無 I 用係です. 

次のブログラム例を昆て下さい.呼び出す際にローカル変数と同じ名前を使っていても，グロ 
一八ル変数の値は変化していないことがわかるでしよう. 
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PROOFWi S^iPLEi 
リ AR I f J iINTEOERj 
PROCEDURE TEST<IiINTEGER)| 

BEGIN 
I i->100| 

Ji-2001 . 

WRITE< / ...in proc*dur*’ ， /〆 * ■_ / »J#/> 

END | 

BEGIN 
I i-10| 

J1-20| 

WRITE < / ...bmiorm proc#dur» / f /, 7 i ■ 7 •I»/• 7 J _ / •J»/>! 
TEST<I>| 

WRITE く， proc»dur» / f / f M - ，，し /〆 J _ 

END. 
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カル変数 ( 


以上のよつに, 


うため，困ることがあります.何らかの計铮結果 


は FUNCTION の値は単浊の帑数型の値しか2 
い場合に困ってしまいます.あらかじめ宣言! 
"沈•が考えられますが，海冋同じ変数に値がス 
FUNCTION から直接値を戻すことはできないジ 


た図8 - 2 -10 を昆®して下さい.変数ダ,の前に\ AR と v 
う.例えば ， PROCEDURE SAMPLE ( VA 1 
SAMPLE ⑻と呼び出されたとき, A に B の値が代人？ 
f PROCEDURE 内で， A := A *2 としま一： 


いという場合です. MINI-PASCAL 
後数の数値や文字型の値を返してほ 
3 —八/レ変数:こ値を代人する，とい 


の久仰です. PROCEDURE や 


IN EGER 


tf (を返すこ 


下さ 













② LEFT ( A , B , I ) 

③ MID ( A , B , I , J ) 

と害くことにします.ブログラムは次のようになります. 


1 PROGRAM SAMPLE I 

2 VAR A,BiSTRING| 

3 I 9 Ji!NTEOER| 

4 PROCEDURE RIGHT く VAR A 9 BiSTRINO| IiINTEGER) 

5 ^»AR CiSTRING| 

6 BEGIN 

7 Ci-B| 

8 DELETE<C f 1 f LENQTH<B)-I>i 

9 Ai-C 

10 END | 

11 PROCEDURE LEFT(VAR A f BiSTRING| 1iINTEGER)i 

12 CiSTRINQf 

13 BEGIN 

14 Ci-B| 

13 DELETE く C•1♦1•LENOTH<B>-I) t 

16 Ai-C 

17 END | 

18 PROCEDURE MID く VAR A f B 1 STRIN 61 I 9 JiINTEGER) 

19 V^AR CiSTRINQf 

20 BEGIN 

21 Ci-B| 

22 DELETE<C f l f I-l>, 

23 DELETE(C f J^l f LEN 6 TH<C>-J)j 

24 Ai-C 

25 END | 

26 BEGIN 

27 WRITEC'riQht' f />| 

28 READ<B> | 

29 REA0<1> | 

30 RI 6 HT<A f B f 1)| 

31 WRITE<A,/> | 

32 WRITECM#^t" f /> | 

33 READ<B> | 

34 READ< I> | 

33 LEFT<A f B f I), 

36 WRITE<A f /> j 

37 WRITE< / mid / ,/)| 

38 READ<B〉| 

39 REAO<I f J) | 

40 MID<A f B f I f J> , 

41 WRITE<A，/> 

42 END. 


以上の変数引数に関することは，マニュアルにはあまり詳しく*かれていませんが，大変役に 
たつテク ニッ クだと思います.また，マニュアルには FUNCTION の例があまりあげられていませ 
んので，ここで骹大公約数を与えるユークリッドのアルゴリズムを関数の形で奔いたものをあげ 
ておきましよう.（変数の関係に注意して下さい). 


1 PROGRAM SAMPLE | 

2 VAR M，NI INTEGER 事 

3 FUNCTION GCM<M f NiIhfTEGER> | 

4 VAR Li INTEGER| 

3 BEGIN 

4 IF M く 0 THEN Mi—M| 

7 IF N<0 THEN Ni_-N| 

8 WHILE M>8 DO 

9 BEGIN 
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8 IF M<N THEN BEGIN 

1 Li-M| 

2 Mi»Nj 

3 Ni-L 

4 END | 

5 Mi-M MOD N 

6 END | 

7 GCMt-N 

8 END | 

9 BEGIN 

20 WRITE< / m f n-? O | 

21 READ<M,N> 事 

22 WRITEC^mpn) ■ ， ， GCM<M,N> ,/> 

23 END. 


8-2-3 再嫌的呼び出し 

今度は,再帰的呼び出し (recursive call ) を取り上げましょう. 

再帰的というのは，自分自身を呼び出すということを意味します.すなわち， PROCEDURE や 
FUNCTION の中で，その PROCEDURE や FUNCTION 0 身を使うということです. 

その例としては，階乘の;! I •味がよくあげられますが， MIN 卜 PASCAL では， 32767 までの帑数し 
か使えず，階乘はすぐオーバーフローしてしまうため，1から N までの自然数の和を求めるブロ 
グラムを肉•帰的呼び出しを用いて為いた例をあげてみましょう.もちろん，これは BASIC でする 
ように FOR を用いて冉いてもかまいませんが，ここでは説明のためにあえてこの形であげておき 
ます. 


1 PROGfWI SAMP し E| 

2 ^*AR NI INTEGER 事 

3 FUNCTION SUM<Ni INTEGER) | 

4 BEGIN 

5 IF N<1 THEN SUMi-0 

6 ELSE IF N-1 THEN SUMi-1 

7 ELSE SUMi-SUM<N-i>^N 

8 END | 

9 BEGIN 

10 WRITE<Mnput N-? 7 > | 

11 READ く N> | 

12 WRITE< / 1^2^...♦N - " f SUM<N>) 

13 END. 


これは，自然数 N を人力し， 1 から N までの自然数の和を求める関数 SUM ( N ) のブログラムで 
すが，中に SUM : = SUM ( N - l ) + >： という文があります.これは，関数 SUM の値を求めるため 
に，関数 SUM 自身の値を使っているわけですが，これが再帰的呼び出しなのです.これでは循環 
論法に陥り，いつまでたっても値が求められないのではないか，という疑問がわく方もあると思 
います.しかし，再帰的呼び出しをくり返すたびに N の値は滅ってゆき， X = 1 のときは SUM := 
1としてあるための無限ループには陥らないのです.ただ，この疑問は重要な点をついており， 
不用意なブログラムを害いたときには本当に無限ルーブに陥ってしまいますので注意して下さい. 

では，このプログラムの働きについて，もう少し詳しくみてみましょう. N に与•えられた値を 
3 と L ますと， SUM (3) の値を求めるために FUNCTION が呼び出されます，というように順を追 
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つてブログラムをみていきます. 


① まず ， FUNCTION SUM が呼び出され，口一々ル変数•ヽ:にはグローバル変数：の値，3 
が人ります. 

② 次に，関数実行部に人りますが，今，>：= 3ですから2つ目の ELSE の後の SUM : =SUM 
( N - l > + N を実行します. 

③ そこで， >：• 1= 2なので SUM (2> を計»するため，自分自身である FUNCTION SUM を 
呼び出します.このとき，ローカル変数 X には今までの X -1 の値すなわち2が人ります. 

④②と同淥 ， SUM : = SUM (>：- l ) + >： を実行します. 

⑤ 今度は N - 1=1ですから， SUM (1> を計算するため，再び自分自身を呼び出します•この 
とき，ローカル変数 N : の値は今までの:<-1の値，すなわち1となります. 

⑥ 今度は N = 1ですから，2つ目の THEN の後が夷行され ， SUM :=1となリ計聆を終わっ 
て戻ります. 

⑦④で SUM ( N - l ) の部分が1と計算されたところへ戻ってきます•ここでの N の値は 2 U 
回 FIJCTION から戻ってきたので回 m されている）ですから ， SUM : = 3ということになリま 
す.この値を持って再び FUNCTION から戻ります. 

⑧ 戾った先は，②で SUM (>：- 1 > の部分が3と計 M : されたところです.ここでの N の肮は，洱 
び回很されて3になっていますので ， SUM : = 6となって FUNCTION から炅リます. 

⑨ これで計»:は全て終わったので， SUM (3) は6ということになリます.纪ってきたところで 
は， N の値はグロー八ル変数の値3になっています. 

多少後推だったかもしれませんが，上のブロセスで • X が何回もローカル変数として値を9.え 
られ，また， FUNCTION から炅るたびに姐が 一段 階ず つ 回报してゆくところがボイントとなって 
いることがわかると思います. 

変数の区別のない BASIC では，こういうことはできません.無理:こ再帰的呼び出しをしようと 
すると，1回自分自身を呼び出すごとに，変数値を配列などにとっておかなくてはいけません. 

こういったことが楽にできるのが， PASCAL の強みです.再帰的呼び出しは，論珲的なアルゴ 
リズムにはたびたび現われるもので， PASCAL のようにすっきりとわかりやすく萬けるというこ 
とは，大変便利なことなのです.例えば，前にあげた文の媾文図の中に，また文が現れるという 
ことがありましたが(図 8-2-11), その場合，ある文字列が文であるかどうかを判別する手続き 
は，再帰的呼び出しを使って書けばよいのです.例えば文字列中の BEGIN から'':"または END 
までの文字列について，その手統き自身で文であるかどうかを判定するということです.大変便 
利ですから，ぜひ利用法をマスターして下さい. 

鰻後に，10進数を4桁の16進数に変換するブログラム例をあげておきましょう.このようなプ 
ログラムはマニュアルにも出ていますが，ここでは，必要に芯じて0を補って4桁の16進数を文 
字列として与えるブログラムを，再帰的呼び出しを使ってつくりました.また，負の数も正しく 
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PROGfWI SAMP し E | 

VAR IiINTEGER| 

SiSTRINGj 

PROCEDURE INTHEXKI i INTEGER | VAR S 1 STRIN 6 ) 1 
VAR H f J iINTEGERj 
T 1 STRIN 61 
BEGIN 

Ji-I DI リ 16! 

Hi-I MOD 16| 

IF<I<0)ANO<H>0)THEN Hi-16-H| 
IF<I<0)AND<H>0)THEN 
IF J—1 THEN Ji-0 1 
IF JO0 THEN INTHEXK J f S> | 

IF H>-10 THEN CHR<H+35,T> 

ELSE CHR く H+48,T> 事 
INSERT<T f S f LEN 6 TH<S>) 

END 1 

PROCEDURE INTHEX<I 1 INTEGER| VAR SiSTR1NO> | 
UAR T 1 STRING 1 
BEGIN 

Si ■ ハ！ 

INTHEXKI $ S> 1 
Ti-^00 7 1 

IF I<0 THEN Ti-"FFF / | 

INSERT<T f S f 0 >1 
DELETE<S f 1•LENGTH く S> -4) 

END 1 
BEGIN 

WRITE<Moput v*lu# ?/> 事 
READ<I) 1 
INTHEXd f S) 1 

WRITE< / —> h.x',S，/> 

END, 


変換できるようになっています （ 8 - 2 - 5 で説明しますが, MOD につごうの悪し、性寅があるため， 
負の数については別の処理を？うことが必要なのです）.では，再帰的呼び出しの効果をじっくり 
味わってみて下さい.前の例のように，働きを1段ずつ追ってみるのもいいかもしれません. 


8-2-4 エラーメッセージについて 

MINI - PASCAL では，ブログラム実行時のエラーは，すべてエラー S 号で表示されるため，少 
しわかりにく くなっています.そこで，エラーメッセージが出た場合の対応等について少し説明 
しましょう.まず， RUN をかけたとき，ブログラムを実行する前にエラーチェックを行うため， 
エラーがあればたいていの場合何もブログラムを実行しないうちに，エラーメッセージが出ます. 
ブログラム実行中のエラーは，0で割った（エラー番号 25) ときや，配列で範囲外を指定した（エラ 
一番号24〉ときや，変数型が人力の際一致していない（エラー番号 26) ときなどでわかりやすいので 
すが，めんどうなのは''ノにかかわるエラーです.持に， BASIC に惯れている人の場合’':" 
を打たずに RET キーを 押してしまうことがあるため，エラー番号5,10，19等がしばしば現れて 
しまいます.また 、、ゾ を忘れると • 8-1-3 でも説明したように，次の文とつながっていると 
解釈されてしまいますので，解釈がどんどんずれて変なところで”："がない，というエラーメ 
ッセージの出ることがあります.そんなとき.エラーメッセージとともに出てきた行だけを見て 
いてもわかりませんので，全体にわたって ''ゾが正しい位 S にあるかどうかをよく確かめて下 
さい.また，未定義の変数名を FOR の後に使ったときは，名前が未定義（エラー番号11> ではなく， 


123456789 


012345678 ? 


0123436789 511213 
22222222223333 
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FOR 文の誤り（エラー番号 18) として出るので注意して下さい.変数名の宣言にも注意が必要です. 

8-2-5 その他の注意点 

MINI-PASCAL を使う際:こ注意しなければならない点，まちがいやすい点等について，いくつ 
かあげておきますので，ブログラム開発の際に役立てて下さい. 

① 配列について 

配列は，览数型しかとれませんが，添字範囲は1からです. BASIC と違い〇番めの要素という 
ものはなく，指定するとエラー番号24が出てしまいます. 

② 整数型変数の READ について 

READ 文で変数値を読み込むと.き，接数型を要求しているのに RET キーを押すと，エラー番号 
26が出てしまいます.これし BASIC と違いますので注意してドさい.数侦の前には，+,—の他 
に#も付けることができ • 16進数の人力が町能です.人乃した文字列に，数字〇〜9以外のものが 
出てくると区切りとみなし，その前までを有効な人力とします.したがって，1つの READt で 
fg 数の変数値を要求しているときは • 変数敝の区切りには 0-9 以外のすべての文字が使えます. 
1つの READi で要求している変数の数より，人わした侦の数が少ないときは足りない変数に値 
0が人り，人 /J した値の数が多いときは余った油:は無祝されます.例えば， READ ( A , B > とい 
う文に （ A , B は辂数型とします）:: lOOslOOslOO と人ノ j すると， A (こは256, B には100が値として 
人ります.はじめの#は16進数の記号.後の2つの： i は区切り記号とみなされ， ft 後の100は無視さ 
れ，2 めの100が B の値になるのです. 

③ ファイングラフィック モー ドについて 

SCREEN (2) でファイングラフィックモードとなるわけですが . T-BASIC と違いこのモードで 
もカラーが使えます.文法説明で PSET や LINE に，実際に❖ラーコードが付いていることが確か 
められるでしよう.ただ，ハ•ソピアのファイングラフィックモードは • 色を付ける部分の左側1 
キャラクタ分にカラーコードをおく，という方式なので横行向をつめて違う色で線を羿きたいと 
いう場合にうまくいきません.簡単に色が付けられるようになったのはよいのですが，思い通り 
の画面にならず困ってしまうということもありますので気を付けて下さい. 

④ 整数型変数の値について 

铬数型変数の値は，2八イトの2の補数表示で表されており，0から1つずつ数字を増してい 
くと， 

0 — 1 —.—32767 —-32768—-32767 . . 1— 0 


といつよつに変化していきます.（初期のマニュアルの説明は誤っています）.この際 • オーバ 
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ーフロー表示などはなく，操り上が#),操り下がりなどは無視して計算を行います. 2進法表示 
のよくわからない方は，32768(二2 1 S ) 以上の数字は65536の倍数を引いた数字として扱われると考 
えて下さい.つまり，65535は65535 — 65536=— 1より一1として扱われます.したがって，256 
*256= 0, 256* 128= — 32768となり， READ ( A > に対し （ A は整数型とします）65535と人力する 
と， A の値は一1となってしまいます•例えば，メモリのサーチなどをするつもりで FOR 1:= 

0 TO ^FFFF DO 〜などと害くと，0から一1までと解釈されるので DO 以下は1回も実行さ 
れなくなってしまいます. （ BASIC ではこのようなとき，1回実行してしまうものもありますが， 
MINI - PASCAL では実行しません）.このように注意しないと予 S 外の結果を招いてしまいますの 
で，32768以上の数（負の数）を扱うときは気を付けて下さい. 

宣言しただけで，何も代人されていない格数型変数の値には〇が人っています.しかし，はじ 
めに0を代人したいときでもきちんと〇を代人する文を邦くようにしておいた方が誤りが少ない 
でしょう. 

⑤ MOD , DIV について 

MOD は余りを， DIV は览数の商を表しますが，ここで L ft の数のかかわるものはめんどうです. 
例えば，5 MOD 3 = 2, 5 DIV 3 =1ですが，次の攸はいくつになると思いますか？ 

① （-5 >MOD 3 

② 5 MOD ( - 3) 

③ <-5) MOD (-3> 

④ （-5 )DIV 3 

⑤ 5 DIV (-3> 

⑥ （一 5) DIV (- 3> 

正解は①から順番に • 2, 2, 2,— 1 •一 1,1となります • MOD では•マイナス記号はあっ 
てもなくても関係ないということです.（このため. P 8- 2 -8 ではめんどうな処理をしました）① 
に対して期待される答は，一2か1ですので，ここで出た答は少し不適当といえるでしょう•また， 
DIV では整数として割り切れない答を整数にするとき，0に向って切り捨てるということに注意し 
て下さい.例えば一5 + 3 =—1.66…ですが，四捨五入でもなく，また BASIC の INT のように小 
さい方へ切り捨てるのでもなく，0に近い方へ切り捨てて一1となります. 

⑥ LOAD , SAVE 

MINI - PASCAL の初期の八ージョンには，カセットによる LOAD / SAVE がうまくできないとい 
うバグがありました.しかし，現在，販売されている MINI - PASCAL には，そのような不備な点 
は改良されています.初期のバージョンをお持ちの方は度々迷惑をこうむったことと思います. 
東芝ではそのような方々のために，無償で現在のバージョンと交換する便宜をはかっていますの 
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で，利用されることをお勧めします. 

8-2-6 IVHN 卜 PASCAL 内部の状態 

ここでは， MIN 卜 PASCAL のブログラムの格納のされ"，内部サブルーチンについて説明しま 
す.どちらも，詳しくは説明できませんが，参考程度にお話ししておきます. 

ブログラムの格納のされ方ですが，ブログラムは内部で中間コードとして格納されています. 
その方式は，大きく分けて次の表のように5通リあリます. 


図表 8 — 2 _ 7 MIN 卜 PASCAL 中間コードの形式 


①1バイトコード 

n は中間コード（以卜'同じ) 

(2) 2バイトコード 

S は文字列.0はその投さ 

(D 3バイトコード 

v はアドレス， mm . 引数または変数エリア 
のサイズ. 








④ 4バイトコード 

常に n = l . C は ff の内界.0はその技さ • i 
はインデントの数 

⑤ 9バイトコ-ド 

a はアドレス（絶対または相対) S は名前 （ 8文字) 
S については，1文字のアスキーコードから20 
H をひいて，常に0となっている h 位2ビット 
を切りすてて，6ビットとしたものを8個分並 
ベ，左から8ビットずつ区切って6バイトとし 
ている. 



予約語，特殊記号の中間コードを，次の図表にあげておきます.コードは10進数で表し，形式 
は図表 8-2-1 における①〜⑤のいずれの形式をとるかを示しています.また，図表 8-2-1 の 
S , v , S が何を表すかを，②，③，⑤の形式についてあげておきます. 


図表 8 — 2—8 MINI PASCAL 中間コード表 


コード 

形式 

意 咮 

0 

① 

プ u グラム終了 

1 

④ 

行開始 

18 

① 

BEGIN 

19 

③ 1 

DO ルーブ脱出後の区切りのアドレス 

20 

① 

DOWNTO 
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これらの格納状態を示す例として，ブログラムをあげておきます. 


PROGRAM MONITORj 
VAR I f J f KtINTEGER| 

BEGIN 

Ii_ 323671 
REPEAT 

FOR Ji-I TO い 13 DO 
BEGIN 

Ki-PEEK<J) | 

IF K>9? THEN WRITEC" / f K) 

ELSE IF K>? THEN NRITEC / ' f K) 

ELSE WRITE< / ^ f K) 

END j 

WRITE く / >| 

Ii-I^16 
UNTIL 丨 >32300 
END. 


MIN 卜 PASCAL では，命令を ifi ： 抟実行することができないため，内部の格納状態を廷る場合， 
どうしてもそのブログラムを mini - pascal で？ f かなくてはなりません.そのため，そのブログ 
ラムで說むことができるのは • そのブログラム自身の格納状態だけということになります. 

内部のメモリ状態をダンプする機械語サブルーチンをつくっても，それをコールするブログラ 
ムの格納状態しか見られないことにかわりありません.ですから，すべての格納状態をこのブロ 
グラムで知るのは難:しいことですが，前にあげた表とあわせれば，だいたいのことはわかると思 
います.つまり，このブログラムを RUN させると • このブログラム自身の内部の格納状態が10進 
数で，途中までですが順々に出てきます.はじめのところだけ少し説明すると，28は PROGRAM 
の中間コード，次の2バイト （167, 126) はアドレス，199は識別子の中間コード，次の2バイト （0, 
0> は末定のアドレス，その次から6八イトは” MONITOR " の6ビットコード， 2 D , 2 F , 2 E ， 
29，34， 2 F \ 32, 00をつなげて8ビットずつ区切ったものになります. 

APPENDIX に， MIN 卜 PASCAL の内部ルーチンの一覧表を載せましたので，興味のある方は 
参考にして下さい. 


2 

3 

4 
3 
6 

7 

8 
9 


2 

3 

4 
3 
6 
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•A SSk MINI PASCAL 


T-BASIC との比 ^ 


各命令について 


でも， MINI - PASCAL の説明をするにあたって， T - BASIC と比較して述べたところがい 
ありますが，ここでは，もっと詳しく T - BASK ： と比べてみたいと思います.まずはじめに， 

Y ラムの書き方の差についてまとめておきましよう•（表1， 


•BASIC と MIN 卜 PASCAL . 

i 2 参照） 



SIC と MIN 卜 PASCAL の比較 



•PASCAL 


SU •の K.yj り 


©使川する変 


”："を使⑴ 

改 h •したところではイヾ袈 



特に寂 rT する必要はない. 
サブルーチン .1) 卜: F ド.\は.どこ 
においてもよい. 


使 Hi する変数は,前もって名前,型をす 
る必要がある. 

PHOCKDURE , FUNCTION は.はじめに寅 
/ f する必要がある. 

9 nm 


と"）"でく くる必 



-BASIC 


FOR-NKXT 


-PASCAL 


FO R 〜 TO (DO WTO 卜 DO 〜 


IF 〜 THE、〜ELSE 〜 
VVHILE-WEND 


IF 〜 THEN 〜 ELSE 〜 
\ VHILE ~ DO 〜 


なし 


REPEAT 〜 UNTIL 〜 



















-PASCAL の標準手綾き，関数と T - BASIC で ’ ：相当するものとの対 tt 


: 3 参照 ）. 




-PASCAL 


-BASIC 



IXSKRT (SI,S2. I) 


I)KLKTE(S. \. J) 


RKA1 ) (〜 


WRITE!-) 
GOTOXY(X. Y) 
GETKEY(C) 
POKK(A. D) 


OUT(I\ 1)) 

MOV 卜 : （ S1, I, S2 •丄 10 


CALL(A;I>1. V2. …… J>n 


COLORd. J) 

I.INK(X1.Yl.X2. Y2. 'PSET. 
5. 、 B，> 

FSETiX. V, C) 


iW:SKT(X, Y) 
SCRKKN(M) 


WIDTH(C，U 


OKI ) ⑸ 


LKNGTH(S) 

PEEK(A) 


S 2$ = LEFTS ( S 2 S . I )+ S 1$+ RIGHT $ 
( S 2$. LE .\( S 2 S )- I ) 

♦ ■ — _ ■ 画 — ■ ■ ■ ■ ■ ■ ■ ■ ，》 ■ ■ ■ - 

SS = LEFT$(SS I 一 1)+ RIGHT$(S $• 
LK.\(S S ) + l - I - J ) 

♦ ■ ■ ■ ■ ■■ _ ■ ■ ■■ 一 ■ _ 

INPUT - 

,PRINT - 
LOCATE X . Y 
CS = INKKV $ 

POKE A , D 


OUT P , D 

_!_■■■■»■ ' ■ 

S 2$ = 1. KFT $( S 2$. J -1)+ MIDS ( 

I . K ) + RIGHTS ( S 2$, ( LEN ( S 2$)* 

K ) + (1 + ( LKN ( S 2$)+1- J - K <0)) 

I)KF USR = A : A = USR ( I > 1) 

(抱数のデータは1«接わたせません） 

COLOR l . J 

LINK ( X 1. Y 1)-( X 2. Y 2). 5, B 
(ファイングラフィックモードの坳合，色指定が 
|できません） 

■^―^― ■■一 ■ '■- ■ ■ ■— ■ —— 

FSKT ( X . Y ). C 

(LINE と同じ注*があてはまります) 
F " RKSET ( X . Y ) 

■4— • __■■■_ ■ ■ ■ ■■■■■■■ ■ ■ 晒_ ■ ■■ ■_ 

SCREEN M 


WIDTH C 

(行数は変わりません，その 

〜 80 の任 g の肮を指定でき 

_♦ ■ —■ ■ . . ■ ■■- ■ ■ ■ ■ 

ASC(S$) 




EKKIA) 


ADR(A) 


VARPTR( 


-BASIC の関数 f 
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以上の表を標準•手続き，関数については • 文字列操作以外は T - BASIC とそんなに違いません. 
逆に T - BASIC の方から MINI - PASCAL を昆ると，祭数型のため当然三角関数や指数対数関数が 
なく その他おもなものでは， RND ， GOTO ， INSTR , HEXS , READ ， DATA . STRS , VAL 
などに対応するものがなくなっています. 


8-3-2 ベンチマークテスト 

ここでは， MINI - PASCAL と T - BASIC の能プ J 比較ということで，ベンチマークテストをして 
みました.ベンチマークテストとは，ある決まったブログラムを実行させてみて，その所要時間 
をはかるものです. MINI - PASCAL は， PASCAL の教育用システムと考えるべきものですから， 
別にスピードにこだわる必要もありませんが，参考までに脚览下さい.使用したブログラムは， 
T - BASIC ではリスト1〜11, MINI - PASCAL では，りスト12〜22です. 


くリスト I > 


300 PRINT •START- 
400 FOR K-l TO 1600 
500 NEXT K 
700 PRINT 'END* 

800 END 


くリスト I2> 

1 PROOR^I TEST 11 

2 K 肅 INTEGER 赛 

3 BEGIN 

4 WRITE<"START" f />| 

5 for ki-i to ieee doi 

6 WRITEC^D 7 f /> 

7 END, 


くリスト 2 > 

see PRINT -START- 
400 K-0 

see k-k +1 

600 if k< ieee then see 

700 PRINT "END* 

800 END 


くリスト I3> 

1 PROGRAM TEST2! 

2 VAR KiINTEGER| 

3 BEGIN 

4 WRITE< / START / ,/) 

3 Ki-0| 

6 REPEAT 

7 Ki-K^l 

8 until K>-ieeei 

9 WRITE く ， ENt)/ •/> 

16 END- 


くリスト 3 > 

360 PRINT -START* 

400 K-0 

300 K-Kt1 

310 A-K/KXK^K-K 

606 if k< ieee then see 

700 PRINT -END* 

800 END 


くリスト 4 > 

300 PRINT -START- 

400 K-0 

500 K_K+1 

510 A-K/2»3^4-5 

600 IF K<1008 THEN 300 

700 PRINT "END* 

800 END 


くリスト I4> 

1 PROGR^I TE8T3| 

2 VAR A f KiINTEGER| 

3 BEGIN 

4 WRITE< / START / ，/> | 

3 K*-0| 

6 REPEAT 

7 Ki»K+l| 

8 Ai-K DIV KXK+K-K 

9 UNTIL K>-1000| 

16 NRITE< / END / ，/> 

11 END. 


くリスト I5> 

1 PROGfWi TEST4| 

2 VAR A 9 KiINTCOER| 

3 BEGIN 

4 WRITE( / START / ,/)| 

5 K«-0| 

6 REPEAT 

7 Ki 麵 K+l| 

8 Ai-K OIV 2X3+4-5 

9 until K>-ieeei 

16 WRITE< / END / f /> 

11 END. 
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I8> 

PROGRAM TEST7| 

VAR A f K f LiINTEGERj 
Mi INTEGER!5)| 
PR 
BE 
EN 


• M<L)-A 
NEXT し 
600 IF K<1000 THEN 900 
700 PRINT ■END- 


REPEAT 


UNTIL K>_1 
WRITEC^D 
END. 


I9> 

PROGRAM TEST 
VAR IlINTEGE 
BEGIN 













8 场 MINI PASCAL 


くリス 

卜 9> 

くリスト 20> 

lee 

SCREEN 2 

i 

PROGRAM TEST?| 

200 

C し S 

2 

リ AR IiINTEGER| 

3ee 

PRIKT -START" 

3 

BEGIN 

400 

FOR I-l TO 1000 

4 

SCREEN<2>| 

EDI 

■ 益.】 <继璺 Ti 

3 

WRITE< / START / ,/> j 

Sl| 

PRESET <1 9 1) 

NEXT I 

6 

FOR Ii-l TO 1008 DO 

un 

7 

BEGIN 

St] 

PRINT -END* 

0 

PSET<1, l,1>| 


END 

9 

PRESET く 1 9 1) 

■ 


10 

END| 



11 

WRITE< / ENO / ) 



12 

END. 



< リスト 2I> 




PROQfWI TEST 10| 

200 



UAR IiINTEGER| 

300 


BEGIN 

400 

な :] 按 



see 



j u r 微 

600 



700 

PRINT "END* 

END 

7 


800 

e 




9 



くリス 

卜 ll> 


iee 

2 ee 




3ee 




466 




300 

1553 


600 


€mM :〇ケ — M 

700 

PRINT -END* 

END 

7 

LINE<0 l 0 > 639 f 0 l / p»#t / t 1〆 

800 

8 

WRITEC'ENDO 



9 

END. 


このうち 1 から 7 までは Jl M アスキーでいつも使っているベンチマークテスト用ブロ 
グラムで,8番目から 11* 目までは，グラフィ./クの能わを測るため加えたものです•そして ， MINI 
• PASCAL のブログラムは，それをできるだけ忠実に翻訳したものです.本来は，1#目から 7 S 
FI の次に小数浈 B : を含む8 I &目のテスト用ブログラムがあるのですが • MIN 卜 PASCAL では，小 
数が汲えないため々ットしてあります.これらのブログラムを実行した際の所要時間は，図 8-3 
- 1にまとめてあります. 

見ての通り M 1 N 卜 PASCAL と T - BASIC は，ほぼ互角です.もともと T - BASIC は他機械植に比 
ベ I •分速いので, MIN 卜 PASCAL は，スピードに関しては合格点といえるでしょう（現在， T-BASIC 
はおもに使われている他機 M に比べ，ほ丨文1.5倍のスピードです >. 

グラフィック関係のブログラムに W ] しては， T - BASIC には CLS が人っていますが， MIN 卜 PASCAL 
には CLS に相当するものがなく， SCREEN を実行したときに画面がクリアされるため，人ってい 
ません.また， T - BASIC では， SCREEN 文を実行したときに，モード変更があると画面をクリア 
してしまい時間がかかるため，グラフィックないしはファイングラフィックモードにしてから実 
行してあります.画面の一行あたりの文字数は，どちらも80字でテストしました. 
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8-3-3 T - BASIC と MIN 卜 PASCAL の総合的比較 


般後に， T-BASIC と MINI-PASCAL の総合的な比較をしておきましょう.スピードに関して 
は，どちらもあまり差はありませんでした.ブログラムの説み易さは， MINI-PASCAL が勝って 
います.しかし，使える変数型の®富さ，エディットのしやすさ等は， T-BASIC が勝っています. 
MINI-PASCAL は，エラーメッセージがわかりにくく， BASIC では簡単にダイレクトモードで実 
行できるようなことも，いちいち PROGRAM や VAR , BEGIN 〜 END などと害かなくてはなりま 
せん.したがって，手軽にブログラムをつくるには T-BASIC の方が使い易く，論理的にすっきり 
と見やすいプログラムをつくるには MINI-PASCAL の方が適している，と言えるでしょう. 

このように， MINI-PASCAL と T-BASIC のどちらが淹れている，というようなことは一口に 
は言えませんが，次代の中心となるであろう PASCAL が，安価な教育システムとして PASOPIA 
で使えるようになった，ということは喜ぶべきことと言えます. 
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第 9 章 

CP/M 


9-1 CP/M の麵 

9-2 システムに含まれる標準コマンド 

9-3 パソピア CP / M 特有のコマンド 




第 9 章 CP/M 


9-1 CP/M の概略 

9-1-1 CP/M とは？ 

この承では，ハ•ソピア - CP/M に間する説明を行うことにしましょう. 

CP/M という豸藥を聞いたことがない，問いたことはあるが何のことかよく知らない，という人 
L 少なくないと思います. CP/M というのは， Digita 卜 Research 社(こよって開発された，ディスク 
を管理するシステ厶ブログラム ( DOS-Disk Operating System ) の名前であ*), Control Program 
for Microcomputers の頭文字からつけられた t のです.このブログラムは，さまざまな機«に合 
わせて発光されています.そのうち•把芝ハ•ソビア明にインプリメントされたものが，ここで説明 
するハ•ソピア- CP/M です. 

このように，多くの機饨で採用されているブログラムとして，すぐ思いつくのは BASIC のイン 
タブリタですが， CP/M は，それとは性玟が;®います. BASICS , ft ■機神:ごとに別なインタプリ 
夕がつくられているため，機械によって使える命令が違ったり，文法が違ったりすることがしば 
しばあります.同じ BASIC という名前がついても，全く別のプログラミング言語のように見える 
ものさえあるのです.そのため，プログラミング解説*,ソフトウェアハ•ッヶージなどは，機 M 
別に製作•販売されているわけで，他機 M の L のを誤って H ってしまうと，あまり（あるいは全く） 

に5：ちません. 

ところが， CP/M は違います. CP/M は，命令を解択•実行したりする本体は，どの機械のもの 
も同一のブログラムであり，人出力など機械ごとに変史しなくてはならない部分だけを，差し替 
えるようになっているのです.《その他，機楝によっては拡張されているものもあります）.その 
ため使い方は，どの機楝でも同一と考えてよく，ブログラムも， CP/M 上で走るものなら異なる機 
棰間でも通用するわけです.ですから CP/M は，標準的な DOS として，世界中で広く使われてい 
るのです.あなたのバソピアも， CP/M によって大きく世界が広がることでしょう. 

なお，上に述べたように， CP/M の本体のブログラムは，どの機械でも同じなので，その CPU 
も同じ機械語が走るものでなくてはなりません. CP/M は，もともと8080向けに開％されたもので 
すが，パソピアの CPU , Z 80 は，8080の機械語プログラムがそのまま動くので，その点，問題はあ 
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りません.しかし，現在日本で手に人るバーソナル•コンピュータにも，8080, Z 80 以外に6809, 
6502などの CPU を使っているものが少なくありません.このような機械では，そのままでは CP / 
M が走らせられないため，わざわざ Z 80 のブログラムを走らせる Z 80 力ードを，オプションで販売 
しています. Z 80 のプログラムは数多いので，何も CP / M だけのために売られているわけではあり 
ませんが，主な目的は，やはり CP / M といってよいでしょう. 

CP / M とは，わざわざそれだけのことをしてまで，走らせたいはどの価値あるプログラムなので 
す. 

なお，この寧では，紙面のつごうで CP/M のすべてを解説する ことは できませんでした. もっと 
詳しく知りたいという方のために ㈱ アスキーより「人門 CP/M 」， 「灾刊 CP/M 」 ，「応用 CP/M 」 の CP/ 
M 3 部作が出版されているので参考•にして下さい. 

9-1-2 メモリ•マップ 

ここでは， CP / M が走っているときのメモリの内容のあらましを説明しましょう.ハハノピアの T 
- BASIC では，〇〜 7 FFFHS 地までは， ROM になっていて， BASIC のインタブリタが人って い 
るのですが， CP / MS , 常にブログラムをディスクとやりとりしなければならないため，どの機械 
でもオール RAM にして使うことになっています.ですから，ハ•ソビアでもバンク切換を行って， 
0〜 7 FFFH 番地 tRAM にしてしまうわけです.そのときのメモリ•マップを次に揭げましょう. 



57 K CP/M 
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図表 9 一 1 一 1 CP/M メモリ•マップ 
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この図を説明しましょう.はじめのシステム•ェリアというのは， CP / M が使用するメモリであ 
り，ジャンプ.テーブル，ワークェリアなどになっています.このエリアは，ユーザーが勝手に 
使ってはいけないところです.その次の TPA というのは ， Transient Program Area の略であり， 
ディスク h のプログラム，データなどは，このエリアにロードされて実行されます.このように 
RAM 上に，そのたびごとにプログラムをディスクから口ードするため，多彩な芯用が可能になる 
わけです. 

その次の CCP とは ， Console Command Processor の略で，キーボードから人力された簡単な命 
令を解釈•実行するプログラムが人っています.ごく基本的な部分まで，毎回 TPA にロードして 
いるのでは大変なので，ここに固定されたブログラムエリアがあるのです. TPA にロードされる 
ブログラムと， CCP に固定されているブログラムの違いについては， 9-1-3 CP / M コマンドの 
実行のされ方， 9-3-1 ビルトインコマンド， 9-3-2 トランジェントコマンドを参照して 
下さい. 

さて，また M &9 -1 - 1にもどって，次の BDOS に移りましょう.これは ， Basic Disk Operating 
System の略で，ディスクのファイル処理などを行うブログラムが人っています.そしてその下の 
BIOS は ， Basic I/O System の略であ 1 )， CP/M の人出力を扱うブログラムが人っています • CP / 
M をある機 W にインブリメントするには • この部分をそのハードウェアに合わせて 杏き 锌えれば 
よいのです.したがってここには • ハ•ソビア用に開発された人出カブログラムが人っており，周 
辺機器とのやりとりを行っているわけです. 

9-1-3 CP/M コマンドの実行のされ方 

前の節で説明したように • CP / M コマンドは CCP で嵌接解択•実行されるものと，デイスクから 
ブログラムを TPA にロードしてから，解釈.実行されるものの2神妞があります. 

前者をビルトインコマンド，後者をトランジェントコマンドと呼びます.これらについては， 
9-2-1 ビルトインコマンド， 9-2-2 トランジェントコマンド，で説明しますので，ここで 
は，どのように命令が実行されるかという分体的な流れを説明しましょう. 

まず， DIR という命令を取り h げます.これは，ビルトインコマンドの1つであり，ディスク上 
のファイル名を出ノ J するものです . （DISK BASIC の FILES に相当）そこで，キーボードから DIR 
と打ち込んで， RETURN キーを押すと，これを CCP が解釈し，ディスク上のファイル名を出力し 
て来る，というわけです.（写真9-卜1> 

これに対し，ビルトインコマンドでないものを打ち込むと， CCP はそれをトランジェントコマ 
ンドと解釈し，その命令を解釈•実行するブログラム（ディスク上にそのコマンドと同じ名前でセ 
ーブされています）をロー ドしてきて，そのブログラムに制御を移します. 

ここで，でたらめに ABC などと打ち込んでみましょう . ABC ?と表示がでるはずです. 
これは， ABC をトランジェントコマンドとして解釈し • その名前のファイルをロードしようと 
したのですが，そのようなファイルが存在しなかったために ， ABC ?という表示を出してき 
たわけです.そこで今度は，実際にある命令をためしてみます . COLOR 2と打ち込んでみましよ 
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う.文字の色が赤色になります. 



写真 9 - I - 
DIR の実行 


写真 9 - I - 2 

ABC? CO し 0R2 の実行 


写«9 •1-2 は， CCP が COLOR という命令をトランジ x ントコマンドとして解釈し，その名前 
のファイルをディスクからロー ドしたものです.その結果ブログラムでハ•ラメータ2を解釈して， 
色を赤色に変えるという実行をしたのです. COLOR というブログラムのファイルは， DIR を実行 
してみれば， COLOR . COM という形で昆つかります.（写饵 9-1- 1を昆て下さい）.この COM 
というのは，コマンドであることを表すものです. 

さて，このようにトランジェントコマンドが実行されるわけですが，この COLOR というのは， 
CP / M に標準的に組み込まれているコマンドではありません.これは， CP / M の解説海を昆ればわ 
かりますか、カラーの出ないマイクロ •コンピュータもあるのですから当然のことです•今，実 
行できたのは•ディスク1:に COLOR . COM というファイルがあったからで，ディスク上に存在す 
るこのようなファイルが，トランジェントコマンドなのです.ですから，自分で新しい命令を追 
加するには，コマンドとして実行可能なプログラムファイルを作って，ディスク上にセーブして 
おけばよいのです.このようなファイルの作り方は， 9-2-2 トランジェントコマンドの LOAD 
で説明します.この機能は，いったん作ってしまえばもとからあるコマンドと全く同じように使 
えて，たいへん便利なものといえるでしょう. 



器 SSS 

almi 

/82 § 顏 §§ 
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- 2 システムに含まれる標準コマンド 


眾 9 鬃 CP M 


ビルトインコマンド 


ここでは， 9- 1 -3 で説明したビルトインコマンドというものについて，具体的に説明してい 
ます.まず，ビルトインコマンドというのは，数は多くなく ERA , DIR ， REN , SAVE , TYPE 
>•5つだけです（他に USR がありますが，ここではふれません）.これらは，いずれもディスク上 
►ファイルに関する命令で， H 頃 fff にそれぞれファイルの抹消，ファイル名の出力，ファイル名の 
TPA からディスクへのセーブ，ファイルの中身の出力を意味します.これらの5つの命令 
：( i , いずファイルを指定する必要がありますが， CP / M では，ファイル名の指定のしかた 
.こは2神:類の方法があります.これらは，トランジェントコマンドの一部でも用いられるので， 
簡単に説明しておきましょう. 

まず，ファイル名を指定する際には • そのファイルの人っているディスクのドライブ名：ファ 
イル名，という形をとります.ディスクのドライブ名は，ハ•ソビアでは数字になっていますが， 
CP / M では，莢' r - を使うことになっているので， 1— A ，2— B ということになります.また，現 
在アクセスしているディスク（ログインディスクといいます）の上のファイルを指定する際は，こ 
のうち''ドライブ名：•の部分は？ f 略できます.このログインディスクのドライブ名は，つねに 
w > "の前に表示されていて，これを切リ稃えるには，ドライブ名：だけを人力します.つまり， 
” A >" と表示の出ているところにノ B :"と人力すれば，ログインディスクは B にかわり， 

という表示が出るわけです.また，ファイル名というのは，で区切られておりその前8字以 
内，後3文字以内が許される校さです. 

この後3文字は，エクステンションと Df •ばれファイルの性 S を表し，ある棟のファイルには決 
まったェクステンションを付ける必要があります.例えば，前に挙げた*. COM " がその例です. 
そして，このファイル名では，小文字も大文字に変換されて解釈されます. 

次に，ファイル名指定の2帏妞の"法の説明にもどります. コマン ドには， SAVE のように1つ 
だけのファイル名を衍定する必要がある t のと （ 1つのファイルに，2つの名前を付けるわけには 
いきません）， ERA のようにファイル名のグルーブを指定できると便利なものがあります.（つま 
り， f « 数のファイルを一度に抹消できるわけです）前者のような場合は，普通にファイル名を指定 
するわけですが（マニュアルで ufn と荠かれているものです），後者の場合は，とか，？"と 
いう記号を使うのです.（マニュアルで afn と»かれているものです） •*" は'〃を含まないわ 
らゆる文字列に対応し， 1 文字は'"以外のあらゆる 1 文字に対応します.例えば， ERA 
*.COM とすれば，エクステンシヨンが COM であるようなファイル （ 1 〜 8 文字目は何でもかまい 
ません）.が消去されるわけです.また，ファイル名を*.*とすれば，あらゆるファイルが対応 
することになります. 

いくつかの例を次の写真で見て下さい. 
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写興 9-2- 
DIR の実行 


なお， SAVE の形式 ， SAVE nufu の n は， SAVE するページをボし，単位は，256バイト < =ぺ 
ージ）です. TPA は， 100 HS 地からはじまるので，この SAVE * 

地からです.統く ufn はファイルネームになります. 


トランジェントコマンド 


前節に統き，トランジ 


コマンドの説明をします.なお 


た COLOR のように，樣準 CP / M にないコマンドも加えられま 
ビア- CP / M の拡張コマンドで説明します.樣準の CP / M トランン 
ASM , DDT , ED , LOAD , DUMP ， SUBMIT , XSUB , PIP , STAT の 9 
の写饵の，、て OM " の付いたものです.順番に説明を加えていきましょう.なお 
ufn , afn を使います. 


_は略記法, 


写真9 -2-2 
DIR *. COM 


① ED 


，簡易英文 


ED とは， CP / M のエディタで，テキストファイルをつくるのに用いられまへ .. 

ワードプロセッサとしても使えます. 

ED は，メモリに人りきらないような巨大なファイルでもエディットできる機能や，ストリング 
のサーチ，変換機能など，大容 ft ファイルの褊粜能力があるのが持徴です， 




gcwcals 
&§ 


i iiri 

sscnsss 



蓮 S 

wpSTwf 
wplLlg 

SS .SS 

&§ 

TJ, Ahw 

s^air 




§§§§§ 









災 9 杨 CP M 


まず， ED の起動ですが， ED ファイル名とします.指定したソィイル名がディスク上になけれ 
ば，そのファイルを作ります.その後の ED の_きは，テキストをメモリ上のエディット•八ッフ 
ァに取 1 )込みます.そして，エディット途中で，ディスクとやりとりするときには，ディスク上 
のテンポラリファイル（エクステンションは SSS) に害き込まれます.そしてエディットが終了する 
と，すべてがテンボラリファイルに莕き込まれ，テンポラリファイルのエクステンションが SSS か 
らもとのものに変わり，また、オリジナル•ファイルの方は，エクステンション か 〃， BAK に変わ 
ります.（ただちに抹消しないで，バックアップ•ファイルとして残すわけです）.エディット* 
バッファに人りきらないような巨大なテキストでも，少しずつロードしては，テンポラリバッフ 
ァに卉き込んでゆけば，エディットすることができるのです. 

ED には，多くの機能があるため，残念ながら詳しいことは 省略 させていただきます. 


② ASM 

ASM とは， CP/M で走る 8080 の槪掖诘のアセンブラです.ハ•ソピアの CPU は， Z80 ですが CP/ 
M は， 8080 用に開発されたものであるため， Z80 特有の機械語はアセンブルできません.また，二 
ーモニック IZilog 型式でなく， Intel 型式で«かなくてはいけません.しかし， Z80 の機械語は， 
8080 に対しヒ位コンハ•チになっていますから，ハ•ソピアでも， I •分強力な機 W 語開発ツールにな 
るといえるでしょう. 

③ DDT 

DDT とは， Dynamic Debu 肽 ingTool の頭文字をつなげたものであり, 8080 機械路用の強力な 
デバッガです. T-BASIC にモニタのないパソピアにはとても便利なものです.その形式は，準に 
DDT とするか'' DDT ファイル名"とします.前者の場合は，すぐに DDT のコマンド待ちになり， 
後铃の場合は，ファイル名で指定されたブログラム（エクステンシヨンは， HEX ないし COM) を口 
ードした後， DDT のコマンド待ちとな 1 )ます. 


® LOAD 

トランジ x ントコマンドを解釈，実行するエクステンション COM 付きのファイルをつくるコマ 
ンドです.形式は LOAD ufn ですが，指定の際には，ェクステンションは付けません.また，ェ 
クステンシコン HEX の付いたファイルは.②の ASM によって作られます.つまり，トランジェン 
トコマンドを祈たに作るには，当然機械語で奔かなくてはならないため，ソースリストから ASM 
でエクステン ショ ン HEX 付きのファイルをつくります.さらに，それに LOAD コマンドを施して， 
エクステンション COM 付きのファイルをつくる，という手順を踏みます.例えば ABC. HEX と 
いうファイルがあるとき， LOAD ABC とすれば， ABC. COM というファイルが新たにでき，以 
後 ABC とするだけで，他のコマンドと同様に使えることになります. 


⑤ DUMP 

ディスク上のファイルの内容を， 1 バイトずつ 16 進数で表示するもので，形式は， DUMP ufn 
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,STAT DEV 


デバイスを表示 


，名が表示されます.枝•後には，残りのキロバイト数 
, SR / O , SSYS . SR / W , SDIR のいずれかを付ける 

_ .くす， SR /0 の解除， SSYS の解除という働きを ufn に 

す.また， STAT コマンドのデバイス割り付けに関する_きには ， STAT 
2つの形式があり，前者で町能なデ八イス，後者で現在割り付けら n 


でもダンプできるので，エクステンションまで含んだフアイ 
は，トランジェントコマンドを実行する DUMP . COM の他， 
〔います.（写 K 9-1-1 を見て下さい}.この DUMP . ASM 
で，これから ASM によって， DUMP . HEX をつくり，次い 
つくられるわけです. DUMP . ASM は， TYPE コマンドで読 
さい(写真9-2-3>. 


写真 9-2-3 
TYPE の実行 




すの状態を表示します.形式はいくつかありますが，単に STAT 
W ( Read / Write ) か R / O ( Read / Only > のいずれかと，残りメモ 
. また， STAT の後に”ドライブ名.："を付けると，今の帅 
います . STAT afn とすると，あてはまるフ t イルについて 






SUBMIT 

は，一連のコマンドをまとめて実行する（バッチ処理といいます）コマンドで形式は ， SUBMIT 
arm # l ， … parm « n です. SUBMIT は， CP / M のコマンドをまとめ，その一連の手順をプロ 
化して実行するものです. BASIC でいえば，今まで説明してきたコマンドの実行法がダイ 
•ステートメントに相当し， SUBMIT で実行するのが BASIC ブログラムとしての実行に相 
といえるでしょう.そのプログラムに相当するものは，①の ED でつくりますが，その際は 


行番号な 
を変数に • 

を付けて表すのですが，実行の際 S 1,••• 
* れることになります. 

⑧ XSUB 

これは， SUBMIT の拡張機能のためグ 
SUB 付きのファイルの第1行におきま 


ようになっています.その名前は，'' 
rmsl , •••, parm # n の値が代人されてか 


で， SUBMIT の中で呼び出す，エクステ 
すると通常のトランジェントコマンドの 
人力する命令までもファイルから読んで 
マンドは，実行している途中にキーボー 


PIP とは， 


ルの転送 


,簡単 <■ 


r “綠 

:| Sl« 


ありますが基本は， 
イルを結合して ， uf 


という名前を付けることを意味します 
，転送のための省略形として ， pip ) 
まるファイルを， Y から X へ転送する 








ています•つまり ， PIP X : ufn = y :は ， PIP X : ufn = y : ufn と同じことです.単に PIP と 
人力すると，とブロンブトが出るので，続けてコマンドライン（今までの例で、' PIP " を除い 
た残り）を人力することもできます.また， PIP では，ディスク間のみならずさまざまなデバイス 
間のデータ転送も可能です.それからコマンドラインの後に， PIP パラメータと呼ばれるものを [,] 
でく くって付けることにより，細かい制御が河能です.そのコードと意味は以下のとおりです. 
( n は数を表します). 

B ブロックモード転送 
Dn 頭から n 文字をこえた部分を削除 
E 転送操作のエコー表示（コンソール上） 

F フォームフィード （ OCH ) を削除 

H インテル HEX 形式としてエラーチェック 

I H の際に，ヌルコードを無 ? R 
L 大文字—小文字変換 

N 行番号付加， N 2とすると，数字の先頭の〇も表示 
0 転送の際，ファイル終了コード （1 AH ) を無视 
Pn n 行ごとにページを送り， n が1またはないときは60行ごと 
Q 文字列 ctrlZ 

文字列を発見すると，ファイル転送中止 
S 文字列 ctrlZ 

文字列を発見すると，ファイル転送開始 
Tn タブスペースを n 々ラムに設定 
U 小文字—大文字変換 

V リードアフターライトを行う 

Z 人力時のパリティビットを0にする 

9-3 パソピア CP / M 特有の コマンド 

ハ•ソビア CP / M には，一般の CP / M のコマンドのほかに，ハ•ソビア独自の コマン ドがいくつかあ 
ります.ここでは，それについて順に説明してゆきましょう. 

① FORMAT 

新しいディスクをフォーマットするコマンドです. ^ FORMAT " と人力して，画面の指示通 
りにすればよいので，何枚ものディスクを続けてフォー マッ トできます. 

② MONITOR 

画面をクリアするコマンドです.単に '' MONITOR " と人力します. 
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イル名を表示します. DIR と違い，フ 
数が表示され，しかもアルファべッ1 
数，使用キロバイト数の合計，拽〇の 
ィスクを調べたいときには， 

7イブ名："を付けます. 


を参照 


写真 9-3- I 

_ LIST 

④ TV 

画面のモードを36字 X 24 行に設定するコマンドです.単に H ' V 〃と人力します.次の TV 1 と 
同じく， DIR などの画面表示が見にく くなってしまいます. 


⑤ TV 1 

画面のモードを36字 X 19 行に設定するコマンドです.単に • TVr と人力します. 

⑥ COPY 

ディスクをコピーしてバックアップをとるコマンドです. " COPY "と人力した後，コビーさ 
れるディスクを，ドライブ1に，フォーマットされた新しいディスクをドライブ2に人れて， 
RETURN キーを押します. 


⑦ DDUMP 

ディスクの中の状態を直接16進数で表示するコマンドです.はじめに，ドライブ名，次いで, 
トラック，ヘッド，セクタの開始番号，表示するセクタ数，プリンタ出力の有無を人力します. 
表示は，アスキーダンプ付きで行われます， 



⑧ COLOR 

文字色，背费色を指定するコマンドです. BASIC と同様 . "COLOR 5， 1" のように入力 
します. 
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® CONFIG 

あらかじめ決めら il ているさまざまな設定を変更する コマン ドです. XONFIG " と人力する 
と，少したって， メニューが 出ます . CRT コントロールコード，プリンタコントロール，キー 
ボードマトリックス，コミュニケーション•ハ•ラメータの 変更， スクリーンサイズ（デフォルト 
値）の選択 ， SYSGEN ( CP / MO システム 部のコビー） な どの 機能があります •メニューの 番号を 
人力して，それぞれの処理を I 利面の指示に従って行います. 
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A. T-BASIC タイニ•モニタ 


以下に示すブログラムは機械語モニタです.このブログラムを使えば機械語のダンプやメモリ 
の害き換えを行うことができます. 

コマン ドの説明 

ESC 機能のリストを出力します. 

D メモリをアスキーダンプします.スタートアドレスとエンドアドレスを人力 

して下さい.チェックサム付で出力します. 

S メモリに害き込みます•スタートアドレスを人力し，16進で打込んで下さい•一 

(マイナス）キーを押すとアドレスが1つ逆戻りし， RETURN を押すと1つ 
進みます.スペースを押すと»き込みを終了します. 

P ダンプをブリンタに出力するかしないかのスイッチになっています.1回押 

すと ON . もう1回押すと OFF で， ON のときはブリンタに出力します. 


0000 

0018 

0020 

0030 

0040 

eese 

ee^e 

0070 

0080 

ee?e 


TINY MONITOR 

FOR 

VER. 


•BASIC 


播暑餳 


n】_ 

n)_ 


10200 
10210 
10220 
10230 
10240 
10 230 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
.0360 


WIDTH 00iKEY OFFiCOLOR 5,0iCLS 
DEF FNF<X f Y)-VALC«cH-4LEFT#<HEX#<X) f Y>) 

ON ERROR GOTO 10910 

^ CAPFLG-&HFE7C I POKE CAPFL6 f I ^ KfT . 1.0 \ 

y CAPFL6-4HFE7FiPOKE CAPFLG•1 丨， Vtr•1.1 I Vtr. 

CAPFLG-&H1E3 iPOKE CAPFL6 f l l" T-OISK BASIC / 

• ^ TITLE 暑•播 

PRINTS CC TINY MONITOR ) 11 

PRINT-CCC V#r. 1.0 】】】_ 

PRINT-CCI Oct ."82 )】】_ 

COLOR 7,0 

/ 餐僑僑 GET COMhWNO 播播餳 

WHILE INKEY ♦ く >_•iWEND 

POKE CAPFL6 f 2351 IF DEV THEN PRINT B >-| ELSE PRINT - !* f 
A 黎 ■INPUTt< 1 > I IF ASC<A 拿〉 <&H20 THEN A 搴 ■■ み ■ ♦CHR^<«<H40+A 
PRINT At|- - | iCM-INSTRCDSWPJ- f A»> 

•IF THEN 10800 

IF THEN 10280 

IF CM-0 THEN PRINT*?* 1601010200 
ON CM GOTO1 0290 f 10540 f 1 0600 f 1 0670 f 10700 
PRINT-Rtturn to b** 丨 c ■丨 ON ERROR GOTO 0iENO 
〆 Dump mtmory *** 

PRINT - Dump memory 11 iGOSUB 10760 1608 UB 10780 
PRINTiIF EAD-0 THEN 10200 
SADH-FNF<SAD f 3)IEADH-FNF<EAD f 3)iI-SADH 
ADR-I»16 

PRINT RIGHT 秦 <_000_+HEX^(ADR>|■ i ■| 

IF DEV THEN LPRINT RIGHT^<■ 000 •4HEX^<ADR) f 4)|■ I m \ 
FOR J-0 TO 7iM-PEEK<A0R^J)iPR 


a**t 力 i ル 3 卜 


_♦CHR»<&H40♦ASC<At)> 







10400 SUMl-FNF<ADR f 2) 

10410 SUM2-ADR-SUM1*256 
10420 SUM-SUM14SUM2 

10430 FOR J-0 TO 7 iM»PEEK<ADR^J)iSUM-SUM^hiIF h>32 fitiO M く 127 THEN PRINT CHR ，（ M> 
| ELSE PRINT _| 

10440 IF DEV THEN IF M>33 AND M<«cH7F THEN LPRINT CHR^<M) | ELSE LPRINT ■•■事 
10450 NEXT JiPRINT ■ _| iIF DEV THEN LPRINT* «| 

10460 FOR J-8 TO I S iM-PEEK< ADR^ J)i SUM-SUM^M! I F M>32 AND M く 127 AND MO&H7F THEN P 
RINT CHR^(M > し E し SE PRINT 

10470 IF DEV THEN IF h>33 AND M<247 THEN LPRINT CHR^<M>| ELSE LPRINT 
10480 NEXT J 

10490 IF SUM>2A13 THEN SUM-SUM-2 A 13 ELSE IF SUM<-<2^15) THEN SUM-SUM+2 A 15 
10300 PRINT- •丨 iPRINT RIOHT»<-0-♦HEX^CSUM) f 2>iIF OBJ THEN LPRINT* ■|RIGHTW_0■+ H 
EX ， <SUM>,2> 

10310 IF I + l く EADH THEN I-Ul iGOTO 10330 

10320 IF DEV THEN LPRINT 

10330 GOTO 10200 

10340 ^ Stt mtmory 

10330 PRINT-Stt memory-lOOSUB 10760 

10360 PRINT RI6HTtC000-4HEX*<SAD) f 4) |_ i_ | R16HTt< • 0 • ♦HEX^C PEEK< SAD) > f 2) |--- | 
10370 Al.-INPUT 攀 <1>|1F A1^-CHR^U3) THEN SAD-SAD>1 iPRINT- * | 16010 10360 ELSE I 
F Alt- - * THEN PR I NT i GOTO 10200 ELSE IF THEN SAD-SAD-J iPRINT 11 ■ | iGOTO 

19960 ELSE PRINT A1 拿 | 

10380 A2t-INPUTt<1>iIF A2t-CHR^<13) THEN SAO-SAD^liPRINT* *|iGOTO 10560 ELSE I 
F A2t- - ■ THEN PRINTiGOTO 10200 ELSE IF- A2THEN SAD-SAD-1iPRINT* - |I GOTO 
10360 ELSE PRINT A2«i• •i 


0600 / W*rd ••PCh 

0610 PRINT - W*rd »trch*iINPUT"S#rch p |A»lOOSUB 10760 i6l 
0620 LEN6THiLEN(At)»2iIF LENGTH-0 THEN 10200 ELSE IF 
ong-iGOTO 10200 

10630 FOR 1-1 TO LENGTH iWARO< I )-VAL<4MI Ot<At f I #2-1 f 2>) iNEXT 
10640 FOR I-SAO TO EADiJ*0lUHILE WARD<1)-PEEK<I♦J> fiiAO J<LENGTHIJ-J^1iWEND 
0630 IF J-LEN6TH AND PEEK<I♦LENGTH-1>-WARD<LENGTH) THEN PRINT R1GHT 導 <• 800 _+HEXt 
Df4)|- -| 

0660 NEXTiPRINT-Strch tnd h iGOTO 10200 
0670 / 餹餺 PrInt#r swltch 冊镰餺 

0680 IF DEV-0 THEN DEV—iiPRINT-ON - iQOTO 10200 
0690 DE^0 iPRINT-OFF- iGOTO 10209 

0700 / •• JUMP 善镛镛 

0710 PRINT-SUBROUTINE JUMP- 
6?20 60SUB 10760 

0730 INPUT" OK? (Y/N) - |A»iIF A ♦- ^Y- OR A%^ m y m THEN CALL SAD 
0740 GOTO 18208 
0730 • «* ADDRESS INPUT 

0 760 INPUT "START ADDRESS* | AO» * SAD-VA し < _«cH_ ♦AD.> 11F SAD く 0 THEN SAD-SAD^2 A 16 
0770 RETURN 

0780 INPUT 11 END ADDRESS* | AD^ i EAD-VAL< 4 AM) i IF EAD<0 THEN EAO-EAD+2 A 1 <S 
0790 RETURN 

0800 • »* KEY FUNCTION 

0810 PRINT"*** KEY FUNCTION ** 冊 

0820 PRINT 

0830 PRINT" D 1 DUMP MEMORY 

0840 PRINT* P i PRINTER SWITCH 

0850 PRINT" S l SET MEMORY 

0860 PRINT" W i WORD SERCH 

0870 PRINT- J I CALL SUBROUTINE 

0880 PRINT- CTRL-B I RETURN BASIC 


0780 
0 790 
0800 
0810 
0820 
0830 


0830 PRINT" D 
0840 PRINT* P 
0830 PRINT* S I SE. 

0860 PRINT* W i WOI 

0870 PRINT- J I CAl 

0880 PRINT* CTRL-B I RE - 
0890 PRINT 
0900 GOTO 10200 
0910 / ** ERROR RESUME 
0920 PRINT" ?_ 

0930 RESUME 10190 


CTR し 一 B 


7 备簧 ERRi 
PRINT" ?_ 


*** 





•BASIC インタプリター覧表 



PASOPIA T BASIC ROM 内 ルー チ 


符号チ i ック 


AM 出力 


• RAM 出力 （ 1バイ 


ーザーに開放 


FEB 〜に転送（データ) 


DO 0〜に転送（データ) 


セット処理 


ボードキューリセ 


文字キー人力（待ちなし) 


文字キー人力（待ちあり） 


夕1文字出力 







固面コビー 



画面1文字出力 
CLS エントリ 
V - RAM 文字読み 
V - RAM 1文字表示 
カーソル 位1セット 
カーソル off 
カーソル on/off 
V - RAM アドレス変換 
V - RAM 出力 
V - RAM 人力 （ 1バイト〉 
LOCATE エントリ 
表示文字数 （1 行分）セット 
スクリーンモード設定 

COLOR エントリ 
BLOADii - 1 
BSAVEH 
MOTOR エントリ 
音発生 

周波数テーブル 
コマンド処理先アドレス 

関数処理先アドレス 






中問言語テーブル辞窖 











LIST などの開始行セット 


LIST などの終了行セット 
行のサーチ 
中間コード変換 

LIST 定数保存 

スペースのスキップ 

FOR エントリ 
1文宇統みこみ 
娥統みこみ 
DEFSTR エントリ 
DEFINT エントリ 
DEFSNG エントリ 
DEFDBL エントリ 
FC エラー 
開始行推？ i 壳みこみ 
行番号読みこみ 
HL の値を文字列に変換 


RUN エントリ 
GOSUB エントリ 
GOTO エントリ 



中間コードバ •> 


文字列は DE 一 
ら人る 


UL エラー 



RETURN •ェ: 


REM エントリ 
ELSE ェントリ 
COMMON ェントリ 
DATA エントリ 

LET エントリ 

ON エントリ 

RESUME ェントリ 

ERROR エントリ 

AUTO ェントリ 

IF ェントリ 

LPRINT エントリ 

PRINT エントリ 

TAB . SPC (エントリ 

SPC 処理 

LINE エントリ 

LINE INPUT 処理 

” ？ Redo from star い 

INPUT ェントリ 

READ ェントリ 

式評価 

帑数除飫 

因存の値計鈐 

ハ•ラメータ說みこみ 

小文字—大文字変換 


共通 


文字列 データ 


FAC にしまう 


HL + 1からの文字列を変換 













INPUT バッファに人れ 


7 5 

LIST の際のデータ処理 

7 F 

LIST の際の REM 処理 

8 9 

キーワード出力 

2 7 

定数出力 

5 5 

& H .&0 の出力 

A 8 

DELETE エントリ 

DC 

REEK エントリ 

E 3 

POKE エントリ 

F 9 

HL からの文字列を 数仙 

313 

RENUM エントリ 

13 5 

OPTION エントリ 

i 7 4 

RANDOMIZE 

5 ED 

NAME エントリ 

\ 3 8 

OPEN エントリ 




, 1 『ネ^ fcf^y • 還 

li IA # M\ ^jti iH # ■ 


LOAD ェ: 
MERGR 二 




SAVE ェ： 


の内部処理 

n 


FIELD x : 










5 2 A 6 

前の語への移動処理 

5 3 0 5 

インサートのサブルーチン 

5 31 F 

デリートのサブルーチン 

5 3 3 F 

インサートのサブルーチン 

5 3 5 7 

スクロール • ダウン 

5 3 9 7 

文字チ i ック 

5 3 E 9 

EDIT エントリ 

5 4 5 8 

SOUND エントリ 

5 4 7 E 

TERM エントリ 

5 4 C 4 

SGN エントリ 

5 6 17 

CSAVE エントリ 

5 6 2 F 

CLOAD エントリ 

5 6 B 5 

ファイル名セット 

5 7 BA 

PRESET エントリ 

5 7 B F 

FSET エントリ 

5 8 4 9 

LINE 処理 

5 9 5 B 

PAINT エントリ 

5 AA 3 

CIRCLE エントリ 

5 C F 0 

WHILE エントリ 

5 DO F 

WEND エントリ 

5 D 7 D 

CALL エントリ 

5 DF 0 

CHAIN エントリ 

6 0 A 1 

COMMON エントリ 

6 0 A 4 

WRITE エントリ 

611 D 

OCTS エントリ 


] ールキーの処理 
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HEXS エントリ 




LEN エントリ 


ASC エントリ 
CHRS エントリ 

STRINGS ェントリ 

SPACES エントリ 

LEFTS エントリ 

RIGHTS ェントリ 

MIDS エントリ 

VAL エントリ 
INSTR エントリ 
MIDS (コマンド）処理 
バラメータの狁みこみ 

FRE エントリ 
单 M 度滅算 
単精度加算 
单精度減算 
単幘度加换 
単 M 度正視化 
FAC に0を代人 
FAC を1ふやす 
EDCB レジスタの 符号反転 
EDCB レジスタのシフト 






6706 FAC 符号チェック 


ABS 


LOG 係数データ 


LOG 


単枯度联算 


単精度除箅 




符号反転 




SGN ェ 


8ビット帑数 - M 6 ビット帑数 


F A C を PUSH 


HL からの4バイト — EDCB レジスタ - ♦FAC 


FAC — EDCB レジスタ 


FAC — H しからの4 


HL から— DE から 


DE から— HL から 


MSB セ: 


ttW 度 FAC 龈とりだし 


倍精度 FAC 組保存 


単精度比較 


帑数比較 


倍精度比較 


CINT 


CSNG エントリ 


CDBL 


文字堅チ 


nx EDCB 


変数値転送) 


D か 








INT エントリ 


配列添数統みこみ 

格数滅算 
格数加玲 
帑数乘钤 
辂数除典： 

HL の絶村傲をとる 
HL の符号反転 
MOD エントリ 
倍 W 度滅》: 

描稍度加算 

倍 M 度正戌化 
倍 w 度符 y •反転 

倍 m 度联钤 
倍 w 度除算 
文字列—数値 
文字列-数他 
HL の値出力 
数値—文字列 
祭数 FAC — 文字列 


数値データ 





EXP 係数データ 


べき級数計算ルーチン① 


べき級数計箅ルーチン② 


RND ルーチン 


COS ェ 


SIN ェ 


SIN 係数 データ 


TAN ェ 


ATN ェ 


ATN 係数 データ 


DIM ェ 


変数谕狁みこみ 


斩変数作成 


未定推変数のわりだし 


配列統みこみ 


BS エラ 


USING エン 


&デバイスへの出勾 


ブリンタリセ 


CR 出力 


INKEYS エントリ 


コールド.スター トの処理の続き 


最初のメッセージ 





-BASIC ワーク•エリアー覧表 


内容 


除算用サブルーチ 


R \’ D 用ワーク 


前回の RND の 


USRO 〜 USK 9 の処理先:アドレ 

ス 


エフーコード 


りンタ 


ド位» 


のとき出力をブリンタ 


スクリーン播文字数 


スクリーンイ;表示フラグ 


スタックのアドレス保存 


突行中の行*^ 


BASIC テキスト開始アドレス 


中間言结バッファ 


アドレス 


FAC 9 

F AC B 
〜 C 

FACD 

F A C F 

FAD 7 

〜8 

FADB 

F AE A 


FAF 9 

FAFC 
〜 D 

FB 0 2 
〜3 

FB 0 6 

FB 0 A 

FB 10 


FB 


内容 


中間言語〜リストの変換フラグ 


ボインタセーブアドレス 


Acc セーブアドレス 


フロー ティングポイントレジス 


フリーエリア骹終アドレス 


ストリングスタック 

B 15 杉の変数型 （ A 〜 Z 26 字う 
〜聆初はすべて4 ) 


ス 


グディスクリブタ 


ストりング〜フリースベース I ! 
始アドレス 

FOK のテキストボインタ セー • 


ルーチン認逋コード 


行番号—アドレス変換フラグ 


テキスト•ポインタ 


ERL 


ス 


〇 D 


E 〇 1 


5 8 


9 


B 


C 

4 


F 


2 


3 


5 


6 


7 8 


5 


3 

»〆 


キー人カバッ • 


，： で表わされる行#号 








on error goto のフラグ 
HL のセーブ 

ブレーク時の行番号 

ブレーク時アドレス 

変数エリア開始アドレス 

配列エリア開始アドレス 

スタック開始アドレス 

READ 文ボインク 

SWAP 用変数バッファ 
TRON フラグ 
FAC 

格 精度演算 用 FAC 
数娥から変換された文字列 
BSAVE 嘏終アドレス+1 

スクロール開始行+1 
カーソル位 S 

々ーソル on/off フラグ 

PF キー内容 

20 H に out したもの 

PIO Dort A カレントステータ 







-BASIC ジャンプテーブル ー覧表 























E. T-BASIC ROM 版 verl.O と hi の相違 

ROM 版の T - BASIC は verl . O と verl . l の 2 種頟あり， verl . l では次の点が変更されています. 
oHnsj [ del : キーのセルフりピートはキーを 離せば即時停止. 

〇 スクリーンモード0 <テキストモード）を使えるようにした • 

〇 SOUND 文の休符指定 ( SOUNDO , n > が使える. 

CBLOAD で絶対アドレスの指定ができる. 

〇ファ 音 1 ( SOUND 機能） の 周波数を修正. 

〇ファンクション キーの定義の引数に文字変数を使える. 

〇_ 面のスクロールアップのスピードはテキストモードで离速化される.また，両面消去も 
高速化される. 

〇ハードコビー 時に ドッ トプリンタ n 以外のブリンタを使って ハ—ドコビーした ときに“ 16" 
の文字が印字されないようにした.（テキストモード） 

現在流通している PA 7010およひ T - BASIC の ROM バックは verl . l ですので， verl . O のユー 
ザは ROM PAC を使えば verl . l の BASIC を使用できます. 

なお， verl . l で AUTO を使った場合，前から存住する行•が発生したときに***”が表示 
されるのですが， RETURN のみを押した場合その行が削除されてしまうので注意して下さい. 

F. T-DISKBASICver2.0 について 


私芝では， T - DISKBASIC の改良版として， ver 2.0 を出しました. 

T-DISKBASIC ver 2.0 は verl . O に対し次の点が変化しています. 

〇 KANJI キーは verl . O では無視さ U ていたが， ver 2.0 では次のように出力される. 

KANJI キーのみ押したとき一- “& K ” を出力. 

SHIFT + KANJI キ- ► “ KANJI ” を出力. 

〇拡張ュニット経由で8インチフロッピーディスクを使用することができる. 

〇 ファイン.グラフ ィッ ク モー ドでも LINE や PSET のカラーコードが有効になつた.ただ 
し描く図形の左側にカラー•アトりビュートを箬込むスペースがなければ，左側のグラフ ィ 
ックの色になる. 

〇漢字 ROM PAC 2 をドライブ用のサボー トルー テンなしで使用できる. 

〇プログラムを修正した結果メモリ容 S が不足しても，正常に Out of memory を出力し，シ 
ステムがクラッシュしないようになつた. 

〇フリーエリアが約3キロバイト滅少した. 

〇カセットの LOAD / SAVE の時間が短縮した.しかしカセットフアイルの互換性は残した. 


267 



ポートー覧表 


のみ> 

ファイングラフイックモードセ 
グラフィックモードセット信号 
WIDE (80 カラム） CRT セッ 


卜倍号 


倍号 


背贵色セット倍号（絲/赤/ 

LC D (液 品 ）/ B I T 01:10ラスタ0:8ラスタ 
••8 2 5 5 P I 0 CH,C データボート（出力の 


アトリビュート READ DATA 
CRT BUSYm 号(水平同期> 

争茈同期信号 

デイスブレイタイプ （ 1 : CRT 0 


LCD ) 


CH . C データボート（出力の 


アトリビュート WRITE DATA 
V-R AM READ 信号 ( LOW - WRITE ) 

VRAM アドレス 13-08 
： 8 2 5 5 PIO コントロールボート 
: CRTC(HD 4 6 5 0 5 5 ) レジスタアドレス（出力 
のみ） 

: CRTC データボート（人出力） 

水平総大字数 
水平表字文字数 
水平同期位1 

SYNC + WITH ( VVVVHHHH ) 

垂直総文字数 

トータルラスタアドジャスト 

垂直表示文字数 
垂直同期位 S 

インタ. レー 7、/スキ ユ ー（ CCDD - VS ) 





n 2 " 

，，い 0 ，， 

2 3 H 

DDDDDDD / 


MAX ラスタアドレス 
力ーソルスタートラスタ（一 BPDDDDD 
ストッブラスタ 
スタートアドレス HIGH 

LOW 

カーソルアドレス HIGH 

LOW 

: DATA ファイル々 


DATA フアイルユ 


















ール 


VIDEO » 

SHIFT MODE(10 ラスク）信号 (low) 

: PR0TD(PJ. 9, P J 10)Turn Back データ 
FDC 
MBZ 

FDC WA TEST GO 

STEP AJUSTED 

STEP SWITCH 

ERROR STOP SWITCH 

START SWITCH 

SEST SEQ Number Indicate 

:アダプタコントロール 

ERR Continue 
END ” 

VORITE PROTECT コントロール 
READ-DATA Select (1=0 S C. 0 = F DD) 

デバイスナンバーセット信号 
: Indicator ランプ 
ERR Indicate 
DATA ，， 

: FDC(OPD 7 6 5 (STATUS REG (人ノ J のみ〉 
Request for Mast or 
DATA INPUT" )/OUTPUT( 0 ) 

NON DMA モード 
FDC BUSY 
FDD# 3-#0 BUSY 
•• IATA (レジスタ） RE AD/WRITE ボート 

: FDD コントロールボート 

Reset<l>« 号出力： INT 3 号人力 
モータ ON(l> 信号出力 

PRE-SHIFT I/O コントロール （DON.T USE: 
0 0 ) 


FDC TC 焐号 ON 
FDC TC 信号 OFF 
DEBUG console イ ン 


ンタフ 










FEAC …… FD1 〜 4 に応じて 0 〇 〜0 3. 

FEAD, E …… データの先頭アドレス 
FEAF …… データ長一 1 
FEB 1…… シリンダアドレス 
FE B 2…… セクタアドレス 

FEB 3 ……へッ ド 番号 

FEB 4…… リトライ 回数 

結果は，アスキーコードで FE 3 C に人る. 

0 : FDD NOT READY 

2 : ID FIELD ERROR 

3 : SEEK ERROR & DEFFECTIVE TRK 検出 

4 : CRC ERROR 

5 : WRITE & CHECK ERROR & FILE USAFE ERROR 

6 : DELETED SECTOR 検出 

7 :入カパラメータエラー 
8:正常終了 

9 : DELETED SECTOR での CRC ERROR 
G : WRITE PROTECT ERROR 


CLOAD コマンド 

7CE1 〜ファイル名 
BEGIN コマンド 
END コマンド 
JUMP コマンド 
FIND コマンド 

くコマンド 
>コマンド 

INSERT コマンド （7 C 5 4, 5… 行番号） 



LIST コマンド （7 C 5 4, 5, 6, 7 …行番号 } 


LIST# コマンド （ 


EDIT コマンド （7 C 5 4, 


行番号 ) 


DELETE コマンド （7 C 5 4, 5, 6, 7… 行番号） 


ブロンブトを表示して，1文字人力があるまで待つ. 
アスキーコードが Acc に入る . 












PASCAL 内部ル-う 













RT3 


8 バイトのアスキーコードを， 6 バイトに変換する . 

7 D 6 2〜9 :文字列 
7 C 5 8 ：文字列長 

HL レジスタペア：出カエリアのアドレス . 

上の逆の操作を行う . 

出カアドレスは，文字列が 7 DE 3 〜，文字列長 7 C 5 4. 

HL レジスタペアのアドレスから， Acc のバイト数だけの数字を表す文字列 
を . DE レジスタペアに人れる . （バイナリデータへの変換 } 

数 T を表す文字列かづではじまる 16 進数の場合に上と同じはたらきをする . 

4 6 0 9 の逆のはたらきをする . 7C5 4, 5 のバイナリデータを， 7DE 


3 からに.数字列に変換して人 i 

4 6 6 F の逆のはたらきをする. 

SIZE コマンド 

FOR 文 <7C 4 C, D …アドレ 

1 る.そのケタ数は 7C5 6 に人る. 

人出カアドレスは 4 6 DB に同じ. 

フ〇 

REPEAT 文 （ " 

W 

) 

WHILE 文 （ ” 

) 

IF 文 （ ，， 、 


間数， 1 ■•较の实行 （ " 

) 

樣準手統の突行 

tr 1 々へ •マ 欠 v 1 a 

J かでレ丨 マ 























PRESET 

SCREEN 

WIDTH 







GOTO X Y(DE レジスタペア， B レジスタは同上 ) 
GETKEY ( " ) 

TIME を HL レジスタペアに人れる . 

標準関数の実行 

DE レジスタベア：第 1 ハ•ラメータアドレス 
B レジスタ：ハ•ラメータ数 




















35 NOT FDl 〜 FD4 

36 NOT PASSWORD 

37 NOT CRT MODE 

38 NOT CRT SIZE 

39 DIRECTRY FULL 

40 FILE OVER 

41 FDD OVERFLOW 

42 FILE NOT FOUND 

43 NOT MINI PASCAL 

44 FDD HARD ERR 






BUSY 

C 


CONFIG 
CONST 
COPY - 
( ， I>U … 










(澳字コー 



LIST 


LOAD 



LOMEM 




巴分 W 能 
m a ..... 
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プリンタ II の逆スクロール機能を使う 

リアルタイムキースキャン 
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